parse :: String -> [LogMessage]
--parse xs = map parseMessage $ lines xs
parse = map parseMessage . lines
parse :: String -> [LogMessage]
parse = map parseMessage . lines
parse = map parseMessage . lines