Unify block wall types

src/Dodge/Room/Placement.hs

@@ -91,27 +91,21 @@ windowLineType :: Point2 -> Point2 -> PSType
 windowLineType = PutLineBlock baseWindowPane 8 8
 
 baseBlockPane :: Wall
-baseBlockPane = defaultBlock
+baseBlockPane = defaultWall
     { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = greyN 0.5
     , _wlSeen = False
-    , _blIDs = []
     , _wlIsSeeThrough = False
-    , _blVisible = True
-    , _blShadows = []
     , _wlDraw = True
     }
 baseWindowPane :: Wall
-baseWindowPane = defaultBlock
+baseWindowPane = defaultWall
     { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = withAlpha 0.2 cyan
     , _wlSeen = False
-    , _blIDs = []
     , _wlIsSeeThrough = True
-    , _blVisible = True
-    , _blShadows = []
     , _wlDraw = True
     }
 {- Replaces instances of a given 'PutID' with 'PSType's drawn from a list.  -}