From da2114e6d2115f981f31f4f686ffdb527a06c7ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Filip=20Grali=C5=84ski?= Date: Tue, 7 Aug 2018 16:21:37 +0200 Subject: [PATCH] reverse sides when diffing --- geval.cabal | 2 +- src/GEval/LineByLine.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/geval.cabal b/geval.cabal index 955f0a7..6d4a889 100644 --- a/geval.cabal +++ b/geval.cabal @@ -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 diff --git a/src/GEval/LineByLine.hs b/src/GEval/LineByLine.hs index 1357b83..f8565a4 100644 --- a/src/GEval/LineByLine.hs +++ b/src/GEval/LineByLine.hs @@ -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