Add file

src/Dodge/Data/Terminal/Status.hs

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