Move towards inputs in terminal

src/Dodge/Render/MenuScreen.hs

@@ -8,12 +8,14 @@ import Picture
 import Dodge.Menu
 import Padding
 
+import qualified Data.Text as T
+
 menuScreen :: Universe -> ScreenLayer -> Picture
 menuScreen w screen = case screen of
     OptionScreen {_scTitle = titf, _scOptions = mos} 
                             -> drawOptions w (titf w) mos "Use keys to navigate the menu"
     (WaitScreen sf _)       -> drawOptions w (sf w) [] ""
-    (InputScreen inputstr help)    -> drawOptions w inputstr [] help
+    (InputScreen inputstr help)    -> drawOptions w ('>':T.unpack inputstr) [] help
     (DisplayScreen sd )     -> sd w
     (ColumnsScreen titf pairs) -> drawTwoColumnsScreen (_config w) (titf w) pairs