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.DataFrame

7import ProjectM36.TransGraphRelationalExpression

8import ProjectM36.Session

9import GHC.Generics

10import Data.Binary

11import Control.Distributed.Process (ProcessId)

12

13{-# ANN module ("HLint: ignore Use newtype instead of data" :: String) #-}

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

15data Login = Login ProcessId

16 deriving (Binary, Generic)

17

18data Logout = Logout

19 deriving (Binary, Generic)

20data ExecuteRelationalExpr = ExecuteRelationalExpr SessionId RelationalExpr

21 deriving (Binary, Generic)

22data ExecuteDataFrameExpr = ExecuteDataFrameExpr SessionId DataFrameExpr

23 deriving (Binary, Generic)

24data ExecuteDatabaseContextExpr = ExecuteDatabaseContextExpr SessionId DatabaseContextExpr

25 deriving (Binary, Generic)

26data ExecuteDatabaseContextIOExpr = ExecuteDatabaseContextIOExpr SessionId DatabaseContextIOExpr

27 deriving (Binary, Generic)

28data ExecuteGraphExpr = ExecuteGraphExpr SessionId TransactionGraphOperator

29 deriving (Binary, Generic)

30data ExecuteTransGraphRelationalExpr = ExecuteTransGraphRelationalExpr SessionId TransGraphRelationalExpr

31 deriving (Binary, Generic)

32data ExecuteHeadName = ExecuteHeadName SessionId

33 deriving (Binary, Generic)

34data ExecuteTypeForRelationalExpr = ExecuteTypeForRelationalExpr SessionId RelationalExpr

35 deriving (Binary, Generic)

36data ExecuteSchemaExpr = ExecuteSchemaExpr SessionId SchemaExpr

37 deriving (Binary, Generic)

38data ExecuteSetCurrentSchema = ExecuteSetCurrentSchema SessionId SchemaName

39 deriving (Binary, Generic)

40data RetrieveInclusionDependencies = RetrieveInclusionDependencies SessionId

41 deriving (Binary, Generic)

42data RetrievePlanForDatabaseContextExpr = RetrievePlanForDatabaseContextExpr SessionId DatabaseContextExpr

43 deriving (Binary, Generic)

44data RetrieveTransactionGraph = RetrieveTransactionGraph SessionId

45 deriving (Binary, Generic)

46data RetrieveHeadTransactionId = RetrieveHeadTransactionId SessionId

47 deriving (Binary, Generic)

48data CreateSessionAtCommit = CreateSessionAtCommit TransactionId

49 deriving (Binary, Generic)

50data CreateSessionAtHead = CreateSessionAtHead HeadName

51 deriving (Binary, Generic)

52data CloseSession = CloseSession SessionId

53 deriving (Binary, Generic)

54data RetrieveAtomTypesAsRelation = RetrieveAtomTypesAsRelation SessionId

55 deriving (Binary, Generic)

56data RetrieveRelationVariableSummary = RetrieveRelationVariableSummary SessionId

57 deriving (Binary, Generic)

58data RetrieveAtomFunctionSummary = RetrieveAtomFunctionSummary SessionId

59 deriving (Binary, Generic)

60data RetrieveDatabaseContextFunctionSummary = RetrieveDatabaseContextFunctionSummary SessionId

61 deriving (Binary, Generic)

62data RetrieveCurrentSchemaName = RetrieveCurrentSchemaName SessionId

63 deriving (Binary, Generic)

64data TestTimeout = TestTimeout SessionId

65 deriving (Binary, Generic)

66data RetrieveSessionIsDirty = RetrieveSessionIsDirty SessionId

67 deriving (Binary, Generic)

68data ExecuteAutoMergeToHead = ExecuteAutoMergeToHead SessionId MergeStrategy HeadName

69 deriving (Binary, Generic)

70data RetrieveTypeConstructorMapping = RetrieveTypeConstructorMapping SessionId

71 deriving (Binary, Generic)