containsNewline :: String -> Bool
containsNewline f = any (\c -> elem c f) ['\n', '\r']
containsNewline :: String -> Bool
containsNewline f = any (\c -> elem c f) ['\n', '\r']
containsNewline f = any (\c -> elem c f) ['\n', '\r']