Mostly use String instead of Text

src/Dodge/Combine.hs

@@ -8,7 +8,6 @@ module Dodge.Combine (
     enterCombineInv,
 ) where
 
-import qualified Data.Text as T
 import qualified Data.IntSet as IS
 import Control.Lens
 import Control.Monad
@@ -95,7 +94,7 @@ toggleCombineInv w = case w ^. hud . hudElement of
 enterCombineInv :: World -> World
 enterCombineInv w = w & hud . hudElement . subInventory .~ CombineInventory 
     { _subInvSel = mi
-    , _subInvRegex = T.pack ""
+    , _subInvRegex = ""
     , _subInvRegexInput = False
     }
   where