{-# 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