From 5d895ea1c6ed37c93598cbf3891e6fa9738adc2a Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Fri, 31 Jan 2020 22:38:31 +0100
Subject: [PATCH] Fix order in line-by-line mode

---
 src/GEval/LineByLine.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/GEval/LineByLine.hs b/src/GEval/LineByLine.hs
index 29ed35d..a1af0e2 100644
--- a/src/GEval/LineByLine.hs
+++ b/src/GEval/LineByLine.hs
@@ -118,10 +118,11 @@ runLineByLineWithWorstFeatures ordering featureFilter spec bbdo = do
 
 recordToBytes :: (Chunk Text -> [ByteString] -> [ByteString]) -> SpanLineRecord -> ByteString
 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 outSpans,
-                     encodeUtf8 $ formatScore score]
+                     lineToBytes maker outSpans]
+
   where formatScore :: MetricValue -> Text
         formatScore = Data.Text.pack . printf "%f"