Fix some shapes

src/Dodge/Block/Draw.hs

@@ -1,13 +1,13 @@
-module Dodge.Block.Draw
-    where
-import Shape
+module Dodge.Block.Draw (drawBlock) where
+
 import Dodge.Data.Block
+import Shape
 import ShapePicture
 
 drawBlock :: BlockDraw -> Block -> SPic
 drawBlock bd = case bd of
     BlockDrawMempty -> const mempty
-    BlockDraws bds  -> \bl -> foldMap (`drawBlock` bl) bds
+    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
 
@@ -15,5 +15,3 @@ doBlSh :: BlSh -> Block -> Shape
 doBlSh bs = case bs of
     BlShMempty -> const mempty
     BlShConst sh -> const sh
-    
-