fixed & removed a bunch of old TODOs

1 files changed, 1 insertions, 2 deletions

diff --git a/lib/Types.hs b/lib/Types.hs
index 6f80d55..978ada2 100644
--- a/lib/Types.hs
+++ b/lib/Types.hs
@@ -51,7 +51,6 @@ instance HasArguments Level where
 data Lint = Depends Dep | Offers Text | Lint Hint | Badge Badge
   deriving (Ord, Eq, Generic, ToJSONKey)
 
--- | TODO: add a reasonable representation of possible urls
 data Dep = Local RelPath | Link Text | MapLink Text | LocalMap RelPath
   deriving (Generic, Ord, Eq)
 
@@ -84,7 +83,7 @@ instance PrettyPrint Lint where
     "  Info: found a badge."
 
 instance PrettyPrint Hint where
-  prettyprint (Hint level msg) = "  " <> (showText level) <> ": " <> msg
+  prettyprint (Hint level msg) = "  " <> showText level <> ": " <> msg
 
 instance ToJSON Lint where
   toJSON (Lint h) = toJSON h