discardNewlines :: Log -> [Log]
discardNewlines (Log lt lc msg) = map (Log lt lc) (lines msg)
discardNewlines :: Log -> [Log]
discardNewlines (Log lt lc msg) = map (Log lt lc) (lines msg)
discardNewlines (Log lt lc msg) = map (Log lt lc) (lines msg)