diff --git a/geval.cabal b/geval.cabal index 5ee2bec..6c11015 100644 --- a/geval.cabal +++ b/geval.cabal @@ -110,7 +110,6 @@ library , ordered-containers , random , rainbow - , hpqtypes default-language: Haskell2010 executable geval diff --git a/src/GEval/LineByLine.hs b/src/GEval/LineByLine.hs index f8c710e..50ca31b 100644 --- a/src/GEval/LineByLine.hs +++ b/src/GEval/LineByLine.hs @@ -53,7 +53,6 @@ import Data.Conduit.Lift import Control.Monad.State.Strict import Data.Monoid ((<>)) -import Data.Monoid.Utils (mintercalate) import GEval.FeatureExtractor import GEval.BlackBoxDebugging @@ -122,7 +121,7 @@ runLineByLineWithWorstFeatures ordering featureFilter spec bbdo = do recordToBytes :: (Chunk Text -> [ByteString] -> [ByteString]) -> SpanLineRecord -> ByteString recordToBytes maker (SpanLineRecord inSpans expSpans outSpans score) = - mintercalate "\t" [encodeUtf8 $ formatScore score, + (mconcat . Data.List.intersperse "\t") [encodeUtf8 $ formatScore score, lineToBytes maker inSpans, lineToBytes maker expSpans, lineToBytes maker outSpans]