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/Badges.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lib/Badges.hs')

diff --git a/lib/Badges.hs b/lib/Badges.hs
index efb4e77..65433a1 100644
--- a/lib/Badges.hs
+++ b/lib/Badges.hs
@@ -22,10 +22,10 @@ data BadgeArea =
    , areaY :: Double
    }
  | BadgeRect
-   { areaX         :: Double
-   , areaY         :: Double
-   , areaWidth     :: Double
-   , areaHeight    :: Double
+   { areaX      :: Double
+   , areaY      :: Double
+   , areaWidth  :: Double
+   , areaHeight :: Double
    }
   deriving (Ord, Eq, Generic, Show)
 
@@ -41,7 +41,7 @@ instance ToJSON BadgeToken where
   toJSON (BadgeToken text) = toJSON text
 
 parseToken :: Text -> Maybe BadgeToken
-parseToken text = if text =~ ("^[a-zA-Z0-9]{50}$" :: Text) -- TODO: add character limit
+parseToken text = if text =~ ("^[a-zA-Z0-9]{50}$" :: Text)
   then Just (BadgeToken text)
   else Nothing
 
-- 
cgit v1.2.3