git.iko.soy/project-m36
on 01345d5 help sign in
project-m36/src/lib/ProjectM36/Server/RemoteCallTypes.hs
48 lines 2.8 kB history raw
1{-# LANGUAGE DeriveAnyClass, DeriveGeneric #-}
2module ProjectM36.Server.RemoteCallTypes where
3import ProjectM36.Base
4import ProjectM36.TransactionGraph
5import ProjectM36.TransGraphRelationalExpression
6import ProjectM36.Session
7import GHC.Generics
8import Data.Binary
9import Control.Distributed.Process (ProcessId)
11-- | The initial login message. The argument should be the process id of the initiating client. This ProcessId will receive notification callbacks.
12data Login = Login ProcessId
13 deriving (Binary, Generic)
15data Logout = Logout
16 deriving (Binary, Generic)
17data ExecuteRelationalExpr = ExecuteRelationalExpr SessionId RelationalExpr
18 deriving (Binary, Generic)
19data ExecuteDatabaseContextExpr = ExecuteDatabaseContextExpr SessionId DatabaseContextExpr
20 deriving (Binary, Generic)
21data ExecuteDatabaseContextIOExpr = ExecuteDatabaseContextIOExpr SessionId DatabaseContextIOExpr
22 deriving (Binary, Generic)
23data ExecuteGraphExpr = ExecuteGraphExpr SessionId TransactionGraphOperator
24 deriving (Binary, Generic)
25data ExecuteTransGraphRelationalExpr = ExecuteTransGraphRelationalExpr SessionId TransGraphRelationalExpr
26 deriving (Binary, Generic)
27data ExecuteHeadName = ExecuteHeadName SessionId
28 deriving (Binary, Generic)
29data ExecuteTypeForRelationalExpr = ExecuteTypeForRelationalExpr SessionId RelationalExpr
30 deriving (Binary, Generic)
31data RetrieveInclusionDependencies = RetrieveInclusionDependencies SessionId
32 deriving (Binary, Generic)
33data RetrievePlanForDatabaseContextExpr = RetrievePlanForDatabaseContextExpr SessionId DatabaseContextExpr
34 deriving (Binary, Generic)
35data RetrieveTransactionGraph = RetrieveTransactionGraph SessionId
36 deriving (Binary, Generic)
37data RetrieveHeadTransactionId = RetrieveHeadTransactionId SessionId
38 deriving (Binary, Generic)
39data CreateSessionAtCommit = CreateSessionAtCommit TransactionId
40 deriving (Binary, Generic)
41data CreateSessionAtHead = CreateSessionAtHead HeadName
42 deriving (Binary, Generic)
43data CloseSession = CloseSession SessionId
44 deriving (Binary, Generic)
45data RetrieveAtomTypesAsRelation = RetrieveAtomTypesAsRelation SessionId
46 deriving (Binary, Generic)
47data RetrieveRelationVariableSummary = RetrieveRelationVariableSummary SessionId
48 deriving (Binary, Generic)