hdevtools-0.1.0.2: src/Types.hs

module Types
    ( ServerDirective(..)
    , ClientDirective(..)
    , Command(..)
    ) where

import System.Exit (ExitCode)

data ServerDirective
    = SrvCommand Command [String]
    | SrvStatus
    | SrvExit
    deriving (Read, Show)

data ClientDirective
    = ClientStdout String
    | ClientStderr String
    | ClientExit ExitCode
    | ClientUnexpectedError String -- ^ For unexpected errors that should not happen
    deriving (Read, Show)

data Command
    = CmdCheck FilePath
    | CmdInfo FilePath String
    | CmdType FilePath (Int, Int)
    deriving (Read, Show)