Add basic prompt

2021-05-23 16:24:11 +02:00
parent afafc245ef
commit b337fbdab9
12 changed files with 82 additions and 27 deletions
@@ -0,0 +1,10 @@
+module Dodge.Debug.Terminal
+    where
+import Dodge.Data
+import Dodge.Debug.Flag.Data
+
+import Control.Lens
+
+applyTerminalString :: String -> World -> World
+applyTerminalString "NOCLIP" w = w & debugFlags . noClip %~ not
+applyTerminalString _ w = w