Mostly use String instead of Text

src/Dodge/Debug/Terminal.hs

@@ -8,7 +8,6 @@ import Control.Lens
 --import Control.Monad
 --import Data.List
 import Data.Maybe
-import qualified Data.Text as T
 import Dodge.Creature
 import Dodge.Data.Universe
 import Dodge.Inventory.Add
@@ -71,7 +70,7 @@ parseNum :: [String] -> Int
 parseNum xs = fromMaybe 1 $ xs ^? ix 0 >>= readMaybe
 
 showTerminalError :: String -> String -> Universe -> Universe
-showTerminalError cmd s = uvScreenLayers .:~ InputScreen (T.pack cmd) s
+showTerminalError cmd s = uvScreenLayers .:~ InputScreen cmd s
 
 applySetTerminalString :: String -> Universe -> Universe
 applySetTerminalString [] = id