Commit before pushing more input events into update

src/Dodge/Data/Input.hs

@@ -9,6 +9,7 @@ import qualified Data.Set as S
 import Dodge.Data.CWorld
 import Geometry.Data
 import SDL (MouseButton, Scancode)
+import qualified Data.Text as T
 
 data Input = Input
     { _mousePos :: Point2
@@ -24,10 +25,15 @@ data Input = Input
     , _rSelect :: Point2
     , _clickMousePos :: Point2
     , _backspaceTimer :: Int
+    , _textInput :: TextInput
     }
+data TextInput = RejectTextInput
+    | AcceptTextInput {_textInputText :: T.Text}
+
 data WorldHammer
     = SubInvHam
     | DoubleMouseHam
     deriving (Eq, Ord, Show, Read, Enum, Bounded)
 
 makeLenses ''Input
+makeLenses ''TextInput