Work towards making world read/showable

2022-07-22 11:16:12 +01:00
parent 6b69fc1684
commit 7fdb70dd1c
22 changed files with 223 additions and 218 deletions
@@ -30,7 +30,7 @@ applyTerminalString ss = case ss of

 applyTerminalCommand :: String -> Universe -> Universe
 applyTerminalCommand s = case s of
-    "NOCLIP" -> config . debug_booleans . at Noclip %~ toggleJust
+    "NOCLIP" -> uvConfig . debug_booleans . at Noclip %~ toggleJust
    "LOADME" -> (uvWorld . creatures . ix 0 . crInv .~ stackedInventory)
        . (uvWorld . creatures . ix 0 . crInvCapacity .~ 50)
    "LM"    -> applyTerminalCommand "LOADME"