diff --git a/Logs/Presence/Pure.hs b/Logs/Presence/Pure.hs
index 7955c8da31..8abf5e52b2 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