made a partial function total

(shouldn't have been called anyways, but it's still nice not to have it
fail if it ever does get called with that case)

lib/Types.hs

@@ -80,6 +80,8 @@ instance PrettyPrint Lint where
     "  Info: found dependency: " <> prettyprint dep
   prettyprint (Offers dep) =
     "  Info: map offers entrypoint " <> prettyprint dep
+  prettyprint (Badge _) =
+    "  Info: found a badge."
 
 instance PrettyPrint Hint where
   prettyprint (Hint level msg) = "  " <> (showText level) <> ": " <> msg