diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-05-27 12:04:49 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-05-27 12:04:49 -0400 |
commit | 1a5be2b9944f07788a15124483410c11e323de1e (patch) | |
tree | f5b5bde7fb41073a062a8ea01fb29c2c87a6e789 | |
parent | 006d1af8f3ec74f58c1bdb3b11b65210c66000d0 (diff) |
remove \r from Arbitrary for log tests
-rw-r--r-- | Logs/Presence/Pure.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |