diff --git a/lib/Badges.hs b/lib/Badges.hs
index b78f08dc124d74379bb68ca6a47c86c845a815c4..efb4e77ab36925c7567edd13f5eacb1dc25c1190 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
diff --git a/lib/Properties.hs b/lib/Properties.hs
index ce79ff889d69982d58aa9ed59e04a93f339fb316..0049d4ef760fed6bb6e19a2931edac62b6d43859 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -231,11 +231,10 @@ checkObjectGroupProperty p@(Property name _) = case name of
             ObjectPoint {..} ->
               offersBadge (Badge token (BadgePoint objectX objectY))
             ObjectRectangle {..} ->
-              offersBadge (Badge token area)
-              where area = BadgeRect
-                      objectX objectY
-                      objectWidth objectHeight
-                      (objectEllipse == Just True)
+              if isJust objectEllipse
+              then offersBadge
+                $ Badge token (BadgeRect objectX objectY objectWidth objectHeight)
+              else complain "ellipses are not supported."
             ObjectPolygon {} -> complain "polygons are not supported."
             ObjectPolyline {} -> complain "polylines are not supported."
             ObjectText {} -> complain "cannot use texts to define badge areas."