stringFromError :: LogMessage -> String
stringFromError lm = case lm of
  (LogMessage _ _ msg)  -> msg
  (Unknown _)           -> ""
stringFromError :: LogMessage -> String
stringFromError lm = case lm of
  (LogMessage _ _ msg)  -> msg
  (Unknown _)           -> ""
stringFromError lm = case lm of
  (LogMessage _ _ msg)  -> msg
  (Unknown _)           -> ""