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

minor fix

Browse Source
This commit is contained in:
Filip Gralinski 2015-11-07 12:10:39 +01:00 committed by Filip Gralinski
parent e66a8d8341
commit fbe71aef92
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/GEval/Core.hs
View File

@ -166,7 +166,7 @@ x /. y = (fromIntegral x) / (fromIntegral y)
data SourceItem a = Got a | Done data SourceItem a = Got a | Done
gevalCore'' :: (Text -> a) -> (Text -> b) -> ((a, b) -> c) -> (Sink c (ResourceT IO) d) -> (d -> Double ) -> String -> String -> IO (MetricValue) gevalCore'' :: (Text -> a) -> (Text -> b) -> ((a, b) -> c) -> (Sink c (ResourceT IO) d) -> (d -> Double) -> String -> String -> IO (MetricValue)
gevalCore'' expParser outParser itemStep aggregator finalStep expectedFilePath outFilePath = do gevalCore'' expParser outParser itemStep aggregator finalStep expectedFilePath outFilePath = do
v <- runResourceT $ v <- runResourceT $
(getZipSource $ (,) (getZipSource $ (,)