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

Get rid of f**king Windows end-of-line characters

Browse Source 
I hate it so much. Die, die, stupid \r
This commit is contained in:
Filip Gralinski 2018-12-11 13:25:19 +01:00
parent 9c7f04ec61
commit 310ece7f2d
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

@ -446,7 +446,7 @@ getInputSourceIfNeeded forced metrics directory inputFilePath
fileAsLineSource :: SourceSpec -> (Text -> Text) -> LineSource (ResourceT IO) fileAsLineSource :: SourceSpec -> (Text -> Text) -> LineSource (ResourceT IO)
fileAsLineSource spec preprocess = fileAsLineSource spec preprocess =
LineSource ((smartSource spec) .| autoDecompress .| CT.decodeUtf8Lenient .| CT.lines) preprocess spec 1 LineSource ((smartSource spec) .| autoDecompress .| CT.decodeUtf8Lenient .| CT.lines .| CC.map (dropAround (== '\r'))) preprocess spec 1
gevalCoreOnSingleLines :: Metric -> (Text -> Text) -> LineInFile -> LineInFile -> LineInFile -> IO (MetricValue) gevalCoreOnSingleLines :: Metric -> (Text -> Text) -> LineInFile -> LineInFile -> LineInFile -> IO (MetricValue)
gevalCoreOnSingleLines metric preprocess inpLine expLine outLine = gevalCoreOnSingleLines metric preprocess inpLine expLine outLine =