Refactor text input

2022-10-30 11:57:53 +00:00
parent 9779b6fa39
commit 6123795c7a
7 changed files with 49 additions and 74 deletions
@@ -12,7 +12,7 @@ import System.Random
 defaultInput :: Input
 defaultInput = Input
        { _clickMousePos = V2 0 0
-        , _textInput = RejectTextInput
+        , _textInput = mempty
        , _pressedKeys = mempty
        , _mouseButtons = mempty
        , _mousePos = V2 0 0
@@ -24,7 +24,6 @@ defaultInput = Input
        , _rLine = (0, 0)
        , _lSelect = 0
        , _rSelect = 0
-        , _backspaceTimer = 0
    }

 defaultWorld :: World