reverse sides when diffing

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

View File

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

View File

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