Fix block wall rendering

src/Dodge/Data.hs

@@ -573,17 +573,8 @@ data Wall
         , _wlIsSeeThrough :: Bool
         , _blVisible :: Bool
         , _blDegrades :: [Int]
-        , _wlCastShadow :: Bool
         , _blShadows :: [Int]
         }
-    | MultiBlock
-        { _wlLine :: [Point2]
-        , _wlID :: Int
-        , _wlColor :: Color
-        , _wlSeen :: Bool
-        , _wlIsSeeThrough :: Bool
-        , _subWalls :: [Wall]
-        }
 
 data ForceField = FF { _ffLine :: [Point2] , _ffID :: Int 
                      , _ffColor :: Color