Safe Haskell	None
Language	Haskell2010

Saturnin.Types

Synopsis

Documentation

type MachineDescription = String Source

type Hostname = String Source

data BuildRequest Source

Constructors

GitBuildRequest
Fields brUri :: String brHead :: String

data JobRequest Source

JobRequest specifies job to be run. This is what client send to the job server.

Constructors

TestRequest
Fields testType :: TestType dataSource :: GitSource testMachines :: [MachineDescription]

Instances

Read JobRequest
Show JobRequest

data TestType Source

Constructors

CabalTest
MakeCheckTest

Instances

Read TestType
Show TestType

data GitSource Source

Constructors

GitSource
Fields gsUri :: GitURI gsRevOrRef :: GitRevOrRef

Instances

Read GitSource
Show GitSource

type YBServer a = StateT YBSSharedState IO a Source

data YBServerState Source

Constructors

YBServerState
Fields ybssConfig :: ConfigServer pState :: YBServerPersistentState freeMachines :: MachinesRegister logHandle :: Handle

Instances

Show YBServerState
Default YBServerState

type YBSSharedState = TVar YBServerState Source

fst3 :: forall t t1 t2. (t, t1, t2) -> t Source

fst for three-tuple

data TestResult Source

Constructors

Passed
Failed
FailedSetup

Instances

Read TestResult
Show TestResult

anyEither :: Either a a -> a Source

Returns any thing in Either. Be it Left or Right.

isPassed :: TestResult -> Bool Source

data JobID Source

Constructors

JobID Int

Instances

Enum JobID
Read JobID
Show JobID
Generic JobID
ToJSON JobID
FromJSON JobID
type Rep JobID

type JobRequestListenerConnectionHandler a = StateT (Socket, SockAddr) (StateT YBSSharedState IO) a Source

logError :: Text -> YBServer () Source

logInfo :: Text -> YBServer () Source

logToConnection :: Text -> JobRequestListenerConnectionHandler () Source

logToConnection' :: Socket -> Text -> IO () Source