Mostly use String instead of Text

src/Dodge/Render/HUD.hs

@@ -7,7 +7,6 @@ import Dodge.Creature.Info
 import Control.Lens
 import qualified Data.Map.Strict as M
 import Data.Maybe
-import qualified Data.Text as T
 import qualified Data.Vector as V
 import Dodge.Base
 import Dodge.Clock
@@ -97,7 +96,7 @@ drawSubInventory subinv cfig w = case subinv of
         titledSub
             cfig
             ("COMBINE")
-            (combineListSelection w mi (T.unpack regex) x)
+            (combineListSelection w mi regex x)
             <> combineInventoryExtra mi cfig w
 
 titledSub :: Configuration -> String -> SelectionList a -> Picture
@@ -250,7 +249,7 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
     displayTermInput tm = case _tmInput tm of
         TerminalInput s hasfoc _ -> (++ [(displayInputText tm s ++ displayBlinkCursor hasfoc, white)])
     displayInputText tm s
-        | _tmStatus tm == TerminalReady = '>' : T.unpack s
+        | _tmStatus tm == TerminalReady = '>' : s
         | otherwise = ""
     displayBlinkCursor hasfoc
         | hasfoc = clockCycle 10 (V.fromList ["_", ""]) w