Simplify block drawing

2025-10-24 19:09:23 +01:00
parent ccb809a090
commit ffea3a1694
7 changed files with 16 additions and 30 deletions
@@ -32,14 +32,13 @@ data Block = Block

 data BlockDraw
    = BlockDrawMempty
-    | BlockDrawBlSh BlSh
+    | BlockDrawBlSh Shape
    | BlockDraws [BlockDraw]
    | BlockDrawColHeightPoss Color Float [Point2]
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data BlSh
-    = BlShMempty
-    | BlShConst Shape
+    = BlShConst Shape
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''Block