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

Get rid of hpqtypes (mintercalate)

Browse Source
This commit is contained in:
Filip Gralinski 2020-04-14 21:03:03 +02:00
parent aa7bfc360c
commit 8f3550493c
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
geval.cabal
View File

@ -110,7 +110,6 @@ library
, ordered-containers , ordered-containers
, random , random
, rainbow , rainbow
, hpqtypes
default-language: Haskell2010 default-language: Haskell2010
executable geval executable geval

3
src/GEval/LineByLine.hs
View File

@ -53,7 +53,6 @@ import Data.Conduit.Lift
import Control.Monad.State.Strict import Control.Monad.State.Strict
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import Data.Monoid.Utils (mintercalate)
import GEval.FeatureExtractor import GEval.FeatureExtractor
import GEval.BlackBoxDebugging import GEval.BlackBoxDebugging
@ -122,7 +121,7 @@ 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" [encodeUtf8 $ formatScore score, (mconcat . Data.List.intersperse "\t") [encodeUtf8 $ formatScore score,
lineToBytes maker inSpans, lineToBytes maker inSpans,
lineToBytes maker expSpans, lineToBytes maker expSpans,
lineToBytes maker outSpans] lineToBytes maker outSpans]