Allow for destruction of blocks again

2021-10-27 00:15:26 +01:00
parent 12d43f9cf0
commit 15fac3db6e
2 changed files with 9 additions and 6 deletions
@@ -64,8 +64,10 @@ zonedBlockWalls = concatMap f . IM.toList . _znObjects . _wallsZone
    g (y,zs) = show y

 testStringInit :: World -> [String]
+testStringInit _ = []
 --testStringInit w = map (show . _blWallIDs) . IM.elems $ _blocks w
-testStringInit w = (map (f w) . filter g . IM.elems $ _walls w)
+--testStringInit w = (map (f w) . filter g . IM.elems $ _walls w)
+--    ++ map (show . fst) (IM.toList $ _znObjects $ _wallsZone w)
 --    ++ zonedBlockWalls w
  where
    g Block{} = True