Skip to content

Commit

Permalink
..
Browse files Browse the repository at this point in the history
  • Loading branch information
philderbeast committed Nov 14, 2024
1 parent 186d7bd commit 8a7ff78
Showing 1 changed file with 1 addition and 2 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -6,8 +6,7 @@ normalizeWindowsOutput = if isWindows then map (\x -> case x of '/' -> '\\'; _ -
normalizeWindowsCrLf:: String -> String
normalizeWindowsCrLf s = if not isWindows then s else go s where
go "" = ""
go ('\r':'\n':xs) = '\r' : '\n' : go xs
go ('\n':xs) = '\r' : '\n' : go xs
go ('\n':xs) = "(\n|\r\n)" ++ go xs

main = cabalTest . withRepo "repo" . recordMode RecordMarked $ do
let log = recordHeader . pure
Expand Down

0 comments on commit 8a7ff78

Please sign in to comment.