parseMessageHelper :: [String] -> LogMessage
parseMessageHelper m = case m of
  ("I":x:xs)    -> LogMessage Info (stringToTS x) (unwords xs)
  ("W":x:xs)    -> LogMessage Warning (stringToTS x) (unwords xs)
  ("E":c:x:xs)  -> LogMessage (Error (read c::Int )) (stringToTS x) (unwords xs)
  _             -> Unknown (unwords m)

-- Converts a string into a TimeStamp
parseMessageHelper :: [String] -> LogMessage
parseMessageHelper m = case m of
  ("I":x:xs)    -> LogMessage Info (stringToTS x) (unwords xs)
  ("W":x:xs)    -> LogMessage Warning (stringToTS x) (unwords xs)
  ("E":c:x:xs)  -> LogMessage (Error (read c::Int )) (stringToTS x) (unwords xs)
  _             -> Unknown (unwords m)

-- Converts a string into a TimeStamp
parseMessageHelper m = case m of
  ("I":x:xs)    -> LogMessage Info (stringToTS x) (unwords xs)
  ("W":x:xs)    -> LogMessage Warning (stringToTS x) (unwords xs)
  ("E":c:x:xs)  -> LogMessage (Error (read c::Int )) (stringToTS x) (unwords xs)
  _             -> Unknown (unwords m)

-- Converts a string into a TimeStamp