From 65cc8e5e90d49b67682c6e829aa933fdc97be555 Mon Sep 17 00:00:00 2001
From: Charles Durham <cpdurham@protonmail.com>
Date: Mon, 10 May 2021 10:33:59 -0400
Subject: [PATCH] updated for '\r'

---
 test/main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/main.hs b/test/main.hs
index 4b665c8..351eead 100644
--- a/test/main.hs
+++ b/test/main.hs
@@ -2,7 +2,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 import Control.Monad (unless)
-import qualified Data.ByteString as B (ByteString)
+import qualified Data.ByteString as B (ByteString, filter)
 import Data.FileEmbed
 import System.FilePath ((</>))
 
@@ -22,7 +22,7 @@ main = do
     filter (/= '\r') str @?= "foo\n"
 
     let mbs = $(embedFileIfExists "test/sample/foo")
-    mbs @?= Just "foo\r\n"
+    fmap (B.filter (/= fromIntegral (fromEnum '\r'))) mbs @?= Just "foo\n"
 
     let mbs2 = $(embedFileIfExists "test/sample/foo2") :: Maybe B.ByteString
     mbs2 @?= Nothing