From 1a5be2b9944f07788a15124483410c11e323de1e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 27 May 2016 12:04:49 -0400 Subject: remove \r from Arbitrary for log tests --- Logs/Presence/Pure.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Logs') diff --git a/Logs/Presence/Pure.hs b/Logs/Presence/Pure.hs index 7955c8da3..8abf5e52b 100644 --- a/Logs/Presence/Pure.hs +++ b/Logs/Presence/Pure.hs @@ -99,7 +99,8 @@ instance Arbitrary LogLine where arbitrary = LogLine <$> arbitrary <*> elements [minBound..maxBound] - <*> arbitrary `suchThat` ('\n' `notElem`) + <*> arbitrary `suchThat` + (\c -> '\n' `notElem` c && '\r' `notElem` c) prop_parse_show_log :: [LogLine] -> Bool prop_parse_show_log l = parseLog (showLog l) == l -- cgit v1.2.3