extractMessage :: [LogMessage]-> [String]
extractMessage (LogMessage _ _ info : msgs) = info : extractMessage msgs
extractMessage :: [LogMessage]-> [String]
extractMessage (LogMessage _ _ info : msgs) = info : extractMessage msgs
extractMessage (LogMessage _ _ info : msgs) = info : extractMessage msgs