Simplify block drawing

src/Dodge/Placement/Instance/Block.hs

@@ -1,5 +1,6 @@
 module Dodge.Placement.Instance.Block where
 
+import Shape.Data
 import Color
 import Dodge.Data.GenWorld
 import Dodge.Default.Block
@@ -7,7 +8,7 @@ import Dodge.Default.Wall
 import Geometry
 import LensHelp
 
-decoratedBlock :: BlSh -> Material -> Color -> Float -> [Point2] -> PSType
+decoratedBlock :: Shape -> Material -> Color -> Float -> [Point2] -> PSType
 decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
   where
     bl =
@@ -24,4 +25,4 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
             & wlHeight .~ h
 
 lowBlock :: Material -> Color -> Float -> [Point2] -> PSType
-lowBlock = decoratedBlock BlShMempty
+lowBlock = decoratedBlock mempty