src/lib/ProjectM36/Server/RemoteCallTypes.hs · project-m36

1{-# LANGUAGE DeriveAnyClass, DeriveGeneric #-}

2module ProjectM36.Server.RemoteCallTypes where

3import ProjectM36.Base

4import ProjectM36.IsomorphicSchema

5import ProjectM36.TransactionGraph

6import ProjectM36.TransGraphRelationalExpression

7import ProjectM36.Session

8import GHC.Generics

9import Data.Binary

10import Control.Distributed.Process (ProcessId)

11

12-- | The initial login message. The argument should be the process id of the initiating client. This ProcessId will receive notification callbacks.

13data Login = Login ProcessId

14 deriving (Binary, Generic)

15

16data Logout = Logout

17 deriving (Binary, Generic)

18data ExecuteRelationalExpr = ExecuteRelationalExpr SessionId RelationalExpr

19 deriving (Binary, Generic)

20data ExecuteDatabaseContextExpr = ExecuteDatabaseContextExpr SessionId DatabaseContextExpr

21 deriving (Binary, Generic)

22data ExecuteDatabaseContextIOExpr = ExecuteDatabaseContextIOExpr SessionId DatabaseContextIOExpr

23 deriving (Binary, Generic)

24data ExecuteGraphExpr = ExecuteGraphExpr SessionId TransactionGraphOperator

25 deriving (Binary, Generic)

26data ExecuteTransGraphRelationalExpr = ExecuteTransGraphRelationalExpr SessionId TransGraphRelationalExpr

27 deriving (Binary, Generic)

28data ExecuteHeadName = ExecuteHeadName SessionId

29 deriving (Binary, Generic)

30data ExecuteTypeForRelationalExpr = ExecuteTypeForRelationalExpr SessionId RelationalExpr

31 deriving (Binary, Generic)

32data ExecuteSchemaExpr = ExecuteSchemaExpr SessionId SchemaExpr

33 deriving (Binary, Generic)

34data ExecuteSetCurrentSchema = ExecuteSetCurrentSchema SessionId SchemaName

35 deriving (Binary, Generic)

36data RetrieveInclusionDependencies = RetrieveInclusionDependencies SessionId

37 deriving (Binary, Generic)

38data RetrievePlanForDatabaseContextExpr = RetrievePlanForDatabaseContextExpr SessionId DatabaseContextExpr

39 deriving (Binary, Generic)

40data RetrieveTransactionGraph = RetrieveTransactionGraph SessionId

41 deriving (Binary, Generic)

42data RetrieveHeadTransactionId = RetrieveHeadTransactionId SessionId

43 deriving (Binary, Generic)

44data CreateSessionAtCommit = CreateSessionAtCommit TransactionId

45 deriving (Binary, Generic)

46data CreateSessionAtHead = CreateSessionAtHead HeadName

47 deriving (Binary, Generic)

48data CloseSession = CloseSession SessionId

49 deriving (Binary, Generic)

50data RetrieveAtomTypesAsRelation = RetrieveAtomTypesAsRelation SessionId

51 deriving (Binary, Generic)

52data RetrieveRelationVariableSummary = RetrieveRelationVariableSummary SessionId

53 deriving (Binary, Generic)

54data RetrieveCurrentSchemaName = RetrieveCurrentSchemaName SessionId

55 deriving (Binary, Generic)