Allow for ingame terminal input

src/Dodge/Inventory.hs

@@ -42,6 +42,7 @@ import LensHelp
 import qualified Data.Map.Strict as M
 --import qualified Data.Set as S
 import Data.Maybe
+import qualified Data.Text as T
 --import SDL
 --import Data.List
 --import System.Random
@@ -170,7 +171,7 @@ updateTerminalLine w = case w ^? hud . hudElement . subInventory . termParams .
         & hud . hudElement . subInventory . termParams . termSel ?~ 0
     Just (TerminalLineInput _ func) -> w
         & hud . hudElement . subInventory . termParams . termFutureLines %~ tail
-        & hud . hudElement . subInventory . termParams . termInput ?~ ("",func)
+        & hud . hudElement . subInventory . termParams . termInput ?~ (T.empty,func)
 
 -- this looks ugly...
 updateCloseObjects :: World -> World