Refactor text input

src/Dodge/Data/Input.hs

@@ -28,11 +28,8 @@ data Input = Input
     , _lSelect :: Point2
     , _rSelect :: Point2
     , _clickMousePos :: Point2
-    , _backspaceTimer :: Int
-    , _textInput :: TextInput
+    , _textInput :: T.Text
     }
-data TextInput = RejectTextInput
-    | AcceptTextInput {_textInputText :: T.Text}
 
 data WorldHammer
     = SubInvHam
@@ -40,4 +37,3 @@ data WorldHammer
     deriving (Eq, Ord, Show, Read, Enum, Bounded)
 
 makeLenses ''Input
-makeLenses ''TextInput