@@ -2,7 +2,7 @@
22{-# LANGUAGE OverloadedStrings #-}
33
44import Control.Monad (unless)
5−import qualified Data.ByteString as B (ByteString)
5+import qualified Data.ByteString as B (ByteString, filter)
66import Data.FileEmbed
77import System.FilePath ((</>))
88
@@ -22,7 +22,7 @@ main = do
2222 filter (/= '\r') str @?= "foo\n"
2323
2424 let mbs = $(embedFileIfExists "test/sample/foo")
25− mbs @?= Just "foo\r\n"
25+ fmap (B.filter (/= fromIntegral (fromEnum '\r'))) mbs @?= Just "foo\n"
2626
2727 let mbs2 = $(embedFileIfExists "test/sample/foo2") :: Maybe B.ByteString
2828 mbs2 @?= Nothing