diff options
author | stuebinm | 2021-12-16 15:10:30 +0100 |
---|---|---|
committer | stuebinm | 2021-12-16 15:10:30 +0100 |
commit | 9e5ecf2bd3be27be6e8d1dd9f0bf8d80cf1eaa30 (patch) | |
tree | 3b517ddd86b761a433641b3532caa18d5c487e47 /lib/Badges.hs | |
parent | 1144f4b4aa4dbe9522a64aaec0f8488c5f2c62e3 (diff) |
fixed & removed a bunch of old TODOs
Diffstat (limited to 'lib/Badges.hs')
-rw-r--r-- | lib/Badges.hs | 10 |
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 |