Simplify terminals, move towards using tries for commands

src/Dodge/Data/Terminal/Status.hs

@@ -1,15 +1,19 @@
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
-module Dodge.Data.Terminal.Status
-    where
+
+module Dodge.Data.Terminal.Status where
+
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 
-data TerminalStatus = TerminalOff | TerminalBusy | TerminalTextInput {_tiText :: String}
+data TerminalStatus
+    = TerminalOff
+    | TerminalBusy
+    | TerminalTextInput {_tiText :: String, _tiSel :: Int}
     | TerminalPressTo {_tptString :: String}
---    | TerminalArgumentInput TerminalCommand
-    deriving Eq
+    --    | TerminalArgumentInput TerminalCommand
+    deriving (Eq)
 
 makeLenses ''TerminalStatus
 deriveJSON defaultOptions ''TerminalStatus