fixed & removed a bunch of old TODOs

1 files changed, 5 insertions, 5 deletions

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