Mostly use String instead of Text

src/Dodge/Event/Input.hs

@@ -7,7 +7,6 @@ module Dodge.Event.Input (
     handleMouseWheelEvent,
 ) where
 
-import qualified Data.Text as T
 import Dodge.Data.Config
 import Dodge.Data.Input
 import LensHelp
@@ -15,8 +14,8 @@ import SDL
 
 -- annoyingly, the text input event doesn't register backspace, so deletion has to be
 -- dealt with separately
-handleTextInput :: T.Text -> Input -> Input
-handleTextInput text = textInput %~ (`T.append` text)
+handleTextInput :: String -> Input -> Input
+handleTextInput text = textInput %~ (++ text)
 
 -- | Handles keyboard press and release.
 handleKeyboardEvent :: KeyboardEventData -> Input -> Input