Mostly use String instead of Text

src/Dodge/Update.hs

@@ -12,7 +12,6 @@ import Control.Applicative
 import Data.List
 import qualified Data.Map.Strict as M
 import Data.Maybe
-import qualified Data.Text as T
 import Dodge.Base
 import Dodge.Beam
 import Dodge.Bullet
@@ -89,7 +88,7 @@ maybeOpenTerminal u = case u ^. uvWorld . input . pressedKeys . at ScancodeSemic
 gotoTerminal :: Universe -> Universe
 gotoTerminal w = case _uvScreenLayers w of
     (InputScreen{} : _) -> w
-    _ -> w & uvScreenLayers .:~ InputScreen T.empty "Enter command"
+    _ -> w & uvScreenLayers .:~ InputScreen mempty "Enter command"
 
 mouseClickOptionsList :: ScreenLayer -> Universe -> Universe
 mouseClickOptionsList screen u = fromMaybe u $ do