From 9e5ecf2bd3be27be6e8d1dd9f0bf8d80cf1eaa30 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Dec 2021 15:10:30 +0100
Subject: fixed & removed a bunch of old TODOs

---
 lib/Types.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/Types.hs')

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
-- 
cgit v1.2.3