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{-# ANN module ("HLint: ignore Use newtype instead of data" :: String) #-}

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

14data Login = Login ProcessId

15 deriving (Binary, Generic)

16

17data Logout = Logout

18 deriving (Binary, Generic)

19data ExecuteRelationalExpr = ExecuteRelationalExpr SessionId RelationalExpr

20 deriving (Binary, Generic)

21data ExecuteDatabaseContextExpr = ExecuteDatabaseContextExpr SessionId DatabaseContextExpr

22 deriving (Binary, Generic)

23data ExecuteDatabaseContextIOExpr = ExecuteDatabaseContextIOExpr SessionId DatabaseContextIOExpr

24 deriving (Binary, Generic)

25data ExecuteGraphExpr = ExecuteGraphExpr SessionId TransactionGraphOperator

26 deriving (Binary, Generic)

27data ExecuteTransGraphRelationalExpr = ExecuteTransGraphRelationalExpr SessionId TransGraphRelationalExpr

28 deriving (Binary, Generic)

29data ExecuteHeadName = ExecuteHeadName SessionId

30 deriving (Binary, Generic)

31data ExecuteTypeForRelationalExpr = ExecuteTypeForRelationalExpr SessionId RelationalExpr

32 deriving (Binary, Generic)

33data ExecuteSchemaExpr = ExecuteSchemaExpr SessionId SchemaExpr

34 deriving (Binary, Generic)

35data ExecuteSetCurrentSchema = ExecuteSetCurrentSchema SessionId SchemaName

36 deriving (Binary, Generic)

37data RetrieveInclusionDependencies = RetrieveInclusionDependencies SessionId

38 deriving (Binary, Generic)

39data RetrievePlanForDatabaseContextExpr = RetrievePlanForDatabaseContextExpr SessionId DatabaseContextExpr

40 deriving (Binary, Generic)

41data RetrieveTransactionGraph = RetrieveTransactionGraph SessionId

42 deriving (Binary, Generic)

43data RetrieveHeadTransactionId = RetrieveHeadTransactionId SessionId

44 deriving (Binary, Generic)

45data CreateSessionAtCommit = CreateSessionAtCommit TransactionId

46 deriving (Binary, Generic)

47data CreateSessionAtHead = CreateSessionAtHead HeadName

48 deriving (Binary, Generic)

49data CloseSession = CloseSession SessionId

50 deriving (Binary, Generic)

51data RetrieveAtomTypesAsRelation = RetrieveAtomTypesAsRelation SessionId

52 deriving (Binary, Generic)

53data RetrieveRelationVariableSummary = RetrieveRelationVariableSummary SessionId

54 deriving (Binary, Generic)

55data RetrieveCurrentSchemaName = RetrieveCurrentSchemaName SessionId

56 deriving (Binary, Generic)

57data TestTimeout = TestTimeout SessionId

58 deriving (Binary, Generic)

59data RetrieveSessionIsDirty = RetrieveSessionIsDirty SessionId

60 deriving (Binary, Generic)

61data ExecuteAutoMergeToHead = ExecuteAutoMergeToHead SessionId MergeStrategy HeadName

62 deriving (Binary, Generic)