--init considers --precision now
This commit is contained in:
parent
118d4a5fe9
commit
b51944b930
@ -18,7 +18,7 @@ createChallenge :: FilePath -> GEvalSpecification -> IO ()
|
|||||||
createChallenge expectedDirectory spec = do
|
createChallenge expectedDirectory spec = do
|
||||||
D.createDirectoryIfMissing False expectedDirectory
|
D.createDirectoryIfMissing False expectedDirectory
|
||||||
createFile (expectedDirectory </> "README.md") $ readmeMDContents metric testName
|
createFile (expectedDirectory </> "README.md") $ readmeMDContents metric testName
|
||||||
createFile (expectedDirectory </> configFileName) $ configContents metric testName
|
createFile (expectedDirectory </> configFileName) $ configContents metric precision testName
|
||||||
D.createDirectoryIfMissing False trainDirectory
|
D.createDirectoryIfMissing False trainDirectory
|
||||||
createFile (trainDirectory </> "train.tsv") $ trainContents metric
|
createFile (trainDirectory </> "train.tsv") $ trainContents metric
|
||||||
D.createDirectoryIfMissing False devDirectory
|
D.createDirectoryIfMissing False devDirectory
|
||||||
@ -29,6 +29,7 @@ createChallenge expectedDirectory spec = do
|
|||||||
createFile (testDirectory </> expectedFile) $ testExpectedContents metric
|
createFile (testDirectory </> expectedFile) $ testExpectedContents metric
|
||||||
createFile (expectedDirectory </> ".gitignore") $ gitignoreContents
|
createFile (expectedDirectory </> ".gitignore") $ gitignoreContents
|
||||||
where metric = gesMetric spec
|
where metric = gesMetric spec
|
||||||
|
precision = gesPrecision spec
|
||||||
testName = gesTestName spec
|
testName = gesTestName spec
|
||||||
trainDirectory = expectedDirectory </> "train"
|
trainDirectory = expectedDirectory </> "train"
|
||||||
devDirectory = expectedDirectory </> "dev-0"
|
devDirectory = expectedDirectory </> "dev-0"
|
||||||
@ -188,15 +189,17 @@ Directory structure
|
|||||||
|]
|
|]
|
||||||
|
|
||||||
|
|
||||||
configContents :: Metric -> String -> String
|
configContents :: Metric -> Maybe Int -> String -> String
|
||||||
configContents metric testName = "--metric " ++
|
configContents metric precision testName = "--metric " ++
|
||||||
(show metric) ++
|
(show metric) ++
|
||||||
(if testName /= defaultTestName
|
(if testName /= defaultTestName
|
||||||
then
|
then
|
||||||
" --test-name " ++ testName
|
" --test-name " ++ testName
|
||||||
else
|
else
|
||||||
"")
|
"") ++
|
||||||
|
(precisionOpt precision)
|
||||||
|
where precisionOpt Nothing = ""
|
||||||
|
precisionOpt (Just p) = " --precision " ++ (show p)
|
||||||
|
|
||||||
trainContents :: Metric -> String
|
trainContents :: Metric -> String
|
||||||
trainContents BLEU = [hereLit|alussa loi jumala taivaan ja maan he mea hanga na te atua i te timatanga te rangi me te whenua
|
trainContents BLEU = [hereLit|alussa loi jumala taivaan ja maan he mea hanga na te atua i te timatanga te rangi me te whenua
|
||||||
|
Loading…
Reference in New Issue
Block a user