summaryrefslogtreecommitdiff
path: root/lib/Types.hs
diff options
context:
space:
mode:
authorstuebinm2021-10-28 23:29:59 +0200
committerstuebinm2021-10-30 15:44:25 +0200
commit856a86b8fed5d6ba2cd246ff4472e39c9f34fe6d (patch)
treee35d8cfb28f42fc5f7be9a7b8fb1f99862e1b8f2 /lib/Types.hs
parent34c1949525e711beaeb6465a54338ec3bd811712 (diff)
readable prettyprint for inverted lint output
the previous state was a hacky mess
Diffstat (limited to '')
-rw-r--r--lib/Types.hs3
1 files changed, 3 insertions, 0 deletions
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 ]