Move towards inputs in terminal

src/Dodge/Debug/Terminal.hs

@@ -13,6 +13,7 @@ import Text.Read (readMaybe)
 import Data.List --(isPrefixOf, isInfixOf, intercalate)
 import Data.Maybe
 import LensHelp
+import qualified Data.Text as T
 --import qualified Debug.Trace
 --import Graphics.Rendering.OpenGL.GL.Shaders (validateProgram)
 --import Dodge.Data (Universe(Universe))
@@ -52,7 +53,7 @@ applyTerminalString ('s': 'p': 'a': 'w': 'n': ' ': var)
 applyTerminalString _   = id
 
 showTerminalError :: String -> String -> Universe -> Universe
-showTerminalError cmd s = menuLayers .:~ InputScreen cmd s
+showTerminalError cmd s = menuLayers .:~ InputScreen (T.pack cmd) s
 
 applySetTerminalString :: String -> Universe -> Universe
 applySetTerminalString [] = id
@@ -71,7 +72,7 @@ applySetTerminalString var = case key' of
 
 autoCompleteTerminal :: String -> String -> Universe -> IO (Maybe Universe)
 autoCompleteTerminal s _ = return . 
-    (popScreen' >=> pushScreen' (InputScreen input_str valid_commands))
+    (popScreen' >=> pushScreen' (InputScreen (T.pack input_str) valid_commands))
   where
     (key, val) = getSplitString $ tail s
     command_options = case val of