Mostly use String instead of Text

src/Dodge/Event.hs

@@ -15,6 +15,7 @@ module Dodge.Event (
     handleEvent,
 ) where
 
+import qualified Data.Text as T
 import Dodge.Concurrent
 import Dodge.Data.Universe
 import Dodge.Event.Input
@@ -24,7 +25,7 @@ import SDL
 
 handleEvent :: Event -> Universe -> Universe
 handleEvent e u = case eventPayload e of
-    TextInputEvent tev -> inputpoint (handleTextInput (textInputEventText tev)) u
+    TextInputEvent tev -> inputpoint (handleTextInput (T.unpack $ textInputEventText tev)) u
     KeyboardEvent kev -> inputpoint (handleKeyboardEvent kev) u
     MouseMotionEvent mmev -> inputpoint (handleMouseMotionEvent mmev cfig) u
     MouseButtonEvent mbev -> inputpoint (handleMouseButtonEvent mbev) u