11 lines
247 B
Haskell
11 lines
247 B
Haskell
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
|