git.iko.soy/project-m36
on e5bb4e5 help sign in
project-m36/src/lib/ProjectM36/Server/RemoteCallTypes.hs
103 lines 4.0 kB history raw
1{-# LANGUAGE DeriveGeneric, DerivingVia, CPP #-}
2module ProjectM36.Server.RemoteCallTypes where
3import ProjectM36.Base
4import ProjectM36.IsomorphicSchema
5import ProjectM36.TransactionGraph
6import ProjectM36.DataFrame
7import ProjectM36.TransGraphRelationalExpression
8import ProjectM36.Session
9import ProjectM36.Serialise.DataFrame ()
10import ProjectM36.Serialise.IsomorphicSchema ()
11import GHC.Generics
12import Codec.Winery
14#define RPCData(typeName) deriving Generic \
15 deriving Serialise via WineryVariant typeName
17{-# ANN module ("HLint: ignore Use newtype instead of data" :: String) #-}
18-- | The initial login message. The argument should be the process id of the initiating client. This ProcessId will receive notification callbacks.
19data Login = Login DatabaseName
20 RPCData(Login)
22data Logout = Logout
23 RPCData(Logout)
25data ExecuteRelationalExpr = ExecuteRelationalExpr SessionId RelationalExpr
26 RPCData(ExecuteRelationalExpr)
28data ExecuteDataFrameExpr = ExecuteDataFrameExpr SessionId DataFrameExpr
29 RPCData(ExecuteDataFrameExpr)
31data ExecuteDatabaseContextExpr = ExecuteDatabaseContextExpr SessionId DatabaseContextExpr
32 RPCData(ExecuteDatabaseContextExpr)
34data ExecuteDatabaseContextIOExpr = ExecuteDatabaseContextIOExpr SessionId DatabaseContextIOExpr
35 RPCData(ExecuteDatabaseContextIOExpr)
37data ExecuteGraphExpr = ExecuteGraphExpr SessionId TransactionGraphOperator
38 RPCData(ExecuteGraphExpr)
40data ExecuteTransGraphRelationalExpr = ExecuteTransGraphRelationalExpr SessionId TransGraphRelationalExpr
41 RPCData(ExecuteTransGraphRelationalExpr)
43data ExecuteHeadName = ExecuteHeadName SessionId
44 RPCData(ExecuteHeadName)
46data ExecuteTypeForRelationalExpr = ExecuteTypeForRelationalExpr SessionId RelationalExpr
47 RPCData(ExecuteTypeForRelationalExpr)
49data ExecuteSchemaExpr = ExecuteSchemaExpr SessionId SchemaExpr RPCData(ExecuteSchemaExpr)
51data ExecuteSetCurrentSchema = ExecuteSetCurrentSchema SessionId SchemaName
52 RPCData(ExecuteSetCurrentSchema)
54data RetrieveInclusionDependencies = RetrieveInclusionDependencies SessionId
55 RPCData(RetrieveInclusionDependencies)
57data RetrievePlanForDatabaseContextExpr = RetrievePlanForDatabaseContextExpr SessionId DatabaseContextExpr
58 RPCData(RetrievePlanForDatabaseContextExpr)
60data RetrieveTransactionGraph = RetrieveTransactionGraph SessionId
61 RPCData(RetrieveTransactionGraph)
63data RetrieveHeadTransactionId = RetrieveHeadTransactionId SessionId
64 RPCData(RetrieveHeadTransactionId)
66data CreateSessionAtCommit = CreateSessionAtCommit TransactionId
67 RPCData(CreateSessionAtCommit)
69data CreateSessionAtHead = CreateSessionAtHead HeadName
70 RPCData(CreateSessionAtHead)
72data CloseSession = CloseSession SessionId
73 RPCData(CloseSession)
75data RetrieveAtomTypesAsRelation = RetrieveAtomTypesAsRelation SessionId
76 RPCData(RetrieveAtomTypesAsRelation)
78data RetrieveRelationVariableSummary = RetrieveRelationVariableSummary SessionId
79 RPCData(RetrieveRelationVariableSummary)
81data RetrieveAtomFunctionSummary = RetrieveAtomFunctionSummary SessionId
82 RPCData(RetrieveAtomFunctionSummary)
84data RetrieveDatabaseContextFunctionSummary = RetrieveDatabaseContextFunctionSummary SessionId
85 RPCData(RetrieveDatabaseContextFunctionSummary)
87data RetrieveCurrentSchemaName = RetrieveCurrentSchemaName SessionId
88 RPCData(RetrieveCurrentSchemaName)
90data TestTimeout = TestTimeout SessionId
91 RPCData(TestTimeout)
93data RetrieveSessionIsDirty = RetrieveSessionIsDirty SessionId
94 RPCData(RetrieveSessionIsDirty)
96data ExecuteAutoMergeToHead = ExecuteAutoMergeToHead SessionId MergeStrategy HeadName
97 RPCData(ExecuteAutoMergeToHead)
99data RetrieveTypeConstructorMapping = RetrieveTypeConstructorMapping SessionId
100 RPCData(RetrieveTypeConstructorMapping)
102data ExecuteValidateMerkleHashes = ExecuteValidateMerkleHashes SessionId
103 RPCData(ExecuteValidateMerkleHashes)