diff options
Diffstat (limited to 'lib/Properties.hs')
| -rw-r--r-- | lib/Properties.hs | 9 |
1 files changed, 4 insertions, 5 deletions
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." |