20 lines
434 B
Haskell
20 lines
434 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Terminal.Status where
|
|
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
|
|
data TerminalStatus
|
|
= TerminalOff
|
|
| TerminalDeactivated
|
|
| TerminalLineRead
|
|
| TerminalTextInput {_tiText :: String}
|
|
| TerminalPressTo {_tptString :: String}
|
|
deriving (Eq,Show)
|
|
|
|
makeLenses ''TerminalStatus
|
|
deriveJSON defaultOptions ''TerminalStatus
|