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/Properties.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'lib/Properties.hs')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index ce79ff8..0049d4e 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."
-- 
cgit v1.2.3