Simplify doorMechanism (involves hack)

2022-06-23 11:00:25 +01:00
parent 8e3f03637d
commit 4c8c82b55c
3 changed files with 19 additions and 17 deletions
@@ -41,5 +41,5 @@ initialWorld = defaultWorld
    }

 testStringInit :: World -> [String]
-testStringInit = map show . M.toList . _mouseButtons
+testStringInit = map (show . _drStatus) . IM.elems . _doors
 --testStringInit = const []