From 6cfdefc3438100ea829b1c86e790a0f2d56ec503 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 4 Dec 2021 04:33:01 +0100
Subject: lots of code reorganising and some deduplication

it was kinda getting messy in places.

Also found some accidental isomorphisms between types, so these are now
only one type because the consequences were getting silly.
---
 lib/Badges.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/Badges.hs')

diff --git a/lib/Badges.hs b/lib/Badges.hs
index 0369334..b78f08d 100644
--- a/lib/Badges.hs
+++ b/lib/Badges.hs
@@ -22,10 +22,10 @@ data BadgeArea =
    , areaY :: Double
    }
  | BadgeRect
-   { areaX      :: Double
-   , areaY      :: Double
-   , areaWidth  :: Double
-   , areaHeight :: Double
+   { areaX         :: Double
+   , areaY         :: Double
+   , areaWidth     :: Double
+   , areaHeight    :: Double
    , areaIsEllipse :: Bool
    }
   deriving (Ord, Eq, Generic, Show)
-- 
cgit v1.2.3