Commit before putting walls into vector zones

src/Dodge/Initialisation.hs

@@ -67,6 +67,12 @@ wallsAndWindows w
     (wins,wls) = partition _wlIsSeeThrough . IM.elems $ wallsDoubleScreen w
 testStringInit :: World -> [String]
 testStringInit _ = []
+--testStringInit w = 
+--    [show $ _worldMinX w
+--    ,show $ _worldMaxX w
+--    ,show $ _worldMinY w
+--    ,show $ _worldMaxY w
+--    ]
 --testStringInit = mapMaybe f . IM.elems . wallsDoubleScreen
 --  where
 --    f (dr@Door{}) = Just . show $ _wlLine dr