1 files changed, 7 insertions, 4 deletions
diff --git a/lib/LintWriter.hs b/lib/LintWriter.hs
index ca7ff08..8e45812 100644
--- a/lib/LintWriter.hs
+++ b/lib/LintWriter.hs
@@ -10,20 +10,23 @@ import           Control.Monad.Trans.Maybe ()
 import           Control.Monad.Writer      (MonadTrans (lift),
                                             MonadWriter (tell), WriterT)
 import           Data.Aeson                (ToJSON (toJSON))
-import           Data.Text                 (Text)
+import           Data.Text                 (Text, unpack)
 import           GHC.Generics              (Generic)
 
-
 -- | Levels of errors and warnings, collectively called
 -- "Hints" until I can think of some better name
-data Level = Warning | Suggestion | Info | Forbidden | Error
+data Level = Warning | Suggestion | Info | Forbidden | Error | Fatal
   deriving (Show, Generic, ToJSON)
 
 -- | a hint comes with an explanation (and a level)
 data Hint = Hint
   { hintLevel :: Level
   , hintMsg   :: Text }
-  deriving (Show, Generic, ToJSON)
+  deriving (Generic, ToJSON)
+
+instance Show Hint where
+  show Hint { hintMsg, hintLevel } =
+    show hintLevel <> ": " <> unpack hintMsg
 
 -- shorter constructor
 hint :: Level -> Text -> Hint