filipg/geval
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Selecting metric and --show-preprocessed work in the diff mode

Browse Source
This commit is contained in:
Filip Gralinski 2020-09-12 10:45:24 +02:00
parent 1e54427982
commit 5bd2eee13e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/GEval/LineByLine.hs
View File

@ -557,6 +557,7 @@ runMostWorseningFeatures ordering otherOut spec bbdo = do
runDiffGeneralized :: ResultOrdering -> FilePath -> GEvalSpecification -> (Maybe References -> ConduitT (LineRecord, LineRecord) Void (ResourceT IO) a) -> IO a
runDiffGeneralized ordering otherOut spec consum = do
dataSourceB <- checkAndGetDataSource True spec
let dataSourceB' = addSchemeSpecifics scheme dataSourceB
ooss <- getSmartSourceSpec ((gesOutDirectory spec) </> (gesTestName spec)) "out.tsv" otherOut
case ooss of
Left NoSpecGiven -> throwM $ NoOutFile otherOut
@ -567,13 +568,15 @@ runDiffGeneralized ordering otherOut spec consum = do
let dataSourceA = DataSource {
dataSourceChallengeData = chDataSource,
dataSourceOut = otherOutSource}
let sourceA = gevalLineByLineSource metric dataSourceA
let sourceB = gevalLineByLineSource metric dataSourceB
let dataSourceA' = addSchemeSpecifics scheme dataSourceA
let sourceA = gevalLineByLineSource metric dataSourceA'
let sourceB = gevalLineByLineSource metric dataSourceB'
runResourceT $ runConduit $
((getZipSource $ (,)
<$> ZipSource sourceA
<*> ZipSource sourceB) .| sorter ordering .| consum mReferences)
where metric = gesMainMetric spec
scheme = gesMainScheme spec
preprocess = gesPreprocess spec
mSelector = gesSelector spec
sorter KeepTheOriginalOrder = doNothing