isSevereError :: LogMessage -> Bool
isSevereError lm = case lm of
  (LogMessage (Error num) _ _) -> num >= 0
  _                            -> False



-- Exercise 6
-- I've used this to sort all messages by timestamp
-- testParse (inOrder . build . parse) 10000 "error.log"
isSevereError :: LogMessage -> Bool
isSevereError lm = case lm of
  (LogMessage (Error num) _ _) -> num >= 0
  _                            -> False



-- Exercise 6
-- I've used this to sort all messages by timestamp
-- testParse (inOrder . build . parse) 10000 "error.log"
isSevereError lm = case lm of
  (LogMessage (Error num) _ _) -> num >= 0
  _                            -> False



-- Exercise 6
-- I've used this to sort all messages by timestamp
-- testParse (inOrder . build . parse) 10000 "error.log"