Mostly use String instead of Text

src/Dodge/Update/Scroll.hs

@@ -4,7 +4,6 @@ module Dodge.Update.Scroll (
 
 import qualified Data.Map.Strict as M
 import Data.Maybe
-import qualified Data.Text as T
 import Dodge.Base
 import Dodge.Combine
 import Dodge.Data.Universe
@@ -87,7 +86,7 @@ terminalWheelEvent yi tmid w
     setInput i j w' tm =
         tm
             & tmInput . tiSel .~ (i, j)
-            & tmInput . tiText .~ T.pack (_tcString tc ++ " " ++ arg)
+            & tmInput . tiText .~ (_tcString tc ++ " " ++ arg)
       where
         tc = scrollCommands tm !! i
         arg = getArguments' tc tm w' !! j