diff options
author | stuebinm | 2021-12-16 00:22:20 +0100 |
---|---|---|
committer | stuebinm | 2021-12-16 00:22:20 +0100 |
commit | f74bb6eb321f9a22be5cbdb6c92ed74e09226b18 (patch) | |
tree | 6e5f5895b4b16fc5a79cf141706451e3d63e9acf /lib/Badges.hs | |
parent | c89872d393566ab414301cc84f30b8e8d08900b2 (diff) |
we don't support ellipses
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 |