-- filter the error logmessage and then filter > 50 error

filterMessage :: Int -> LogMessage -> Bool
filterMessage minError (LogMessage (Error lvl) _ _)
  | minError <= lvl = True
  | otherwise = False
filterMessage :: Int -> LogMessage -> Bool
filterMessage minError (LogMessage (Error lvl) _ _)
  | minError <= lvl = True
  | otherwise = False
filterMessage minError (LogMessage (Error lvl) _ _)
  | minError <= lvl = True
  | otherwise = False