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

reverse sides when diffing

Browse Source
This commit is contained in:
Filip Graliński 2018-08-07 16:21:37 +02:00
parent e55b8539f1
commit da2114e6d2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
geval.cabal
View File

@ -1,5 +1,5 @@
name: geval name: geval
version: 1.2.1.0 version: 1.2.2.0
synopsis: Machine learning evaluation tools synopsis: Machine learning evaluation tools
description: Please see README.md description: Please see README.md
homepage: http://github.com/name/project homepage: http://github.com/name/project

4
src/GEval/LineByLine.hs
View File

@ -245,8 +245,8 @@ runDiffGeneralized ordering otherOut spec consum = do
Left (NoFile fp) -> throwM $ NoOutFile fp Left (NoFile fp) -> throwM $ NoOutFile fp
Left (NoDirectory d) -> throwM $ NoOutFile otherOut Left (NoDirectory d) -> throwM $ NoOutFile otherOut
Right otherOutSource -> do Right otherOutSource -> do
let sourceA = gevalLineByLineSource metric inputSource expectedSource outSource let sourceA = gevalLineByLineSource metric inputSource expectedSource otherOutSource
let sourceB = gevalLineByLineSource metric inputSource expectedSource otherOutSource let sourceB = gevalLineByLineSource metric inputSource expectedSource outSource
runResourceT $ runConduit $ runResourceT $ runConduit $
((getZipSource $ (,) ((getZipSource $ (,)
<$> ZipSource sourceA <$> ZipSource sourceA