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

Fix order in line-by-line mode

Browse Source
This commit is contained in:
Filip Gralinski 2020-01-31 22:38:31 +01:00
parent 2b4a416a4f
commit 5d895ea1c6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/GEval/LineByLine.hs
View File

@ -118,10 +118,11 @@ runLineByLineWithWorstFeatures ordering featureFilter spec bbdo = do
recordToBytes :: (Chunk Text -> [ByteString] -> [ByteString]) -> SpanLineRecord -> ByteString recordToBytes :: (Chunk Text -> [ByteString] -> [ByteString]) -> SpanLineRecord -> ByteString
recordToBytes maker (SpanLineRecord inSpans expSpans outSpans score) = recordToBytes maker (SpanLineRecord inSpans expSpans outSpans score) =
mintercalate "\t" [lineToBytes maker inSpans, mintercalate "\t" [encodeUtf8 $ formatScore score,
lineToBytes maker inSpans,
lineToBytes maker expSpans, lineToBytes maker expSpans,
lineToBytes maker outSpans, lineToBytes maker outSpans]
encodeUtf8 $ formatScore score]
where formatScore :: MetricValue -> Text where formatScore :: MetricValue -> Text
formatScore = Data.Text.pack . printf "%f" formatScore = Data.Text.pack . printf "%f"