diff options
Diffstat (limited to '')
-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 |