diff options
Diffstat (limited to 'lib/Types.hs')
-rw-r--r-- | lib/Types.hs | 3 |
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 ] |