Fix wall zoning

2022-06-27 09:56:54 +01:00
parent 7778fb0403
commit 90af97ee22
15 changed files with 128 additions and 34 deletions
@@ -41,6 +41,6 @@ initialWorld = defaultWorld
    }

 testStringInit :: Configuration -> World -> [String]
-testStringInit _ _ = mempty
+testStringInit _ w = [show $ _boundDist w]
 --testStringInit = map (show . _drStatus) . IM.elems . _doors
 --testStringInit = const . const []