diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Badges.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/Badges.hs b/lib/Badges.hs index b78f08d..efb4e77 100644 --- a/lib/Badges.hs +++ b/lib/Badges.hs @@ -26,7 +26,6 @@ data BadgeArea = , areaY :: Double , areaWidth :: Double , areaHeight :: Double - , areaIsEllipse :: Bool } deriving (Ord, Eq, Generic, Show) @@ -61,9 +60,7 @@ badgeJsonArray (Badge token area) = , "y" .= areaY , "width" .= areaWidth , "height" .= areaHeight - , "type" .= if areaIsEllipse - then A.String "ellipse" - else A.String "rectangle" + , "type" .= A.String "rectangle" ] badgeJson :: FilePath -> Badge -> A.Value |