From f74bb6eb321f9a22be5cbdb6c92ed74e09226b18 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Dec 2021 00:22:20 +0100
Subject: we don't support ellipses

---
 lib/Badges.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'lib/Badges.hs')

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
-- 
cgit v1.2.3