diff options
Diffstat (limited to 'Logs')
| -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 |