Simplify block drawing

2025-10-24 19:09:23 +01:00
parent ccb809a090
commit ffea3a1694
7 changed files with 16 additions and 30 deletions
@@ -9,9 +9,4 @@ drawBlock bd = case bd of
    BlockDrawMempty -> const mempty
    BlockDraws bds -> \bl -> foldMap (`drawBlock` bl) bds
    BlockDrawColHeightPoss col h ps -> const $ noPic $ colorSH col (upperBox Medium Typical h ps)
-    BlockDrawBlSh x -> noPic . doBlSh x
-
-doBlSh :: BlSh -> Block -> Shape
-doBlSh bs = case bs of
-    BlShMempty -> const mempty
-    BlShConst sh -> const sh
+    BlockDrawBlSh x -> const $ noPic x