Allow for ingame terminal input

src/Dodge/Render/HUD.hs

@@ -24,6 +24,7 @@ import qualified Data.Set as S
 --import qualified Data.IntSet as IS
 import Control.Lens
 import SDL (MouseButton (..))
+import qualified Data.Text as T
 --import Data.List
 --import Data.Bifunctor
 
@@ -123,7 +124,7 @@ subInventoryDisplay subinv cfig w = case subinv of
   where 
     displayTermInput tp = case _termInput tp of
         Nothing -> id
-        Just (s,_) -> (++ [('>':s++clockCycle 10 (V.fromList ["_",""]) w,white)])
+        Just (s,_) -> (++ [('>':T.unpack s++clockCycle 10 (V.fromList ["_",""]) w,white)])
     closeobjectcursor = case selectedCloseObject w of
         Nothing -> mempty
         Just (i,co) -> listCursorNS clObjFloatIn 0 cfig (selNumPos i w) (closeObjectCol co) topInvW (invSelSize i w)