Reify debug booleans

src/Dodge/Debug/Terminal.hs

@@ -1,5 +1,6 @@
 module Dodge.Debug.Terminal
     where
+import MaybeHelp
 import Dodge.Creature
 import Dodge.Creature.Damage
 --import Dodge.Creature.State
@@ -19,8 +20,9 @@ import qualified IntMapHelp as IM
 --import Graphics.Rendering.OpenGL.GL.Shaders (validateProgram)
 --import Dodge.Data (Universe(Universe))
 
+
 applyTerminalString :: String -> Universe -> Universe
-applyTerminalString "NOCLIP" = config . debug_noclip %~ not
+applyTerminalString "NOCLIP" = config . debug_booleans . at Noclip %~ toggleJust
 applyTerminalString "LOADME" = (uvWorld . creatures . ix 0 . crInv .~ stackedInventory)
     . (uvWorld . creatures . ix 0 . crInvCapacity .~ 50)
 applyTerminalString "LM" = applyTerminalString "LOADME"