From 856a86b8fed5d6ba2cd246ff4472e39c9f34fe6d Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 28 Oct 2021 23:29:59 +0200
Subject: readable prettyprint for inverted lint output

the previous state was a hacky mess
---
 lib/Types.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/Types.hs')

diff --git a/lib/Types.hs b/lib/Types.hs
index ab9f8a2..00f0ee7 100644
--- a/lib/Types.hs
+++ b/lib/Types.hs
@@ -79,6 +79,9 @@ instance PrettyPrint Lint where
   prettyprint (Offers dep) =
     "  Info: map offers entrypoint " <> prettyprint dep
 
+instance PrettyPrint Hint where
+  prettyprint (Hint level msg) = "  " <> (showText level) <> ": " <> msg
+
 instance ToJSON Lint where
   toJSON (Lint (Hint l m)) = A.object
     [ "msg" .= m, "level" .= l ]
-- 
cgit v1.2.3