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

git.iko.soy/project-m36

on e0e000c help sign in

45 lines 2.6 kB history raw

1{-# LANGUAGE DeriveAnyClass, DeriveGeneric #-}

2module ProjectM36.Server.RemoteCallTypes where

3import ProjectM36.Base

4import ProjectM36.TransactionGraph

5import ProjectM36.Session

6import GHC.Generics

7import Data.Binary

8import Control.Distributed.Process (ProcessId)

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

11data Login = Login ProcessId

12 deriving (Binary, Generic)

14data Logout = Logout

15 deriving (Binary, Generic)

16data ExecuteRelationalExpr = ExecuteRelationalExpr SessionId RelationalExpr

17 deriving (Binary, Generic)

18data ExecuteDatabaseContextExpr = ExecuteDatabaseContextExpr SessionId DatabaseContextExpr

19 deriving (Binary, Generic)

20data ExecuteDatabaseContextIOExpr = ExecuteDatabaseContextIOExpr SessionId DatabaseContextIOExpr

21 deriving (Binary, Generic)

22data ExecuteGraphExpr = ExecuteGraphExpr SessionId TransactionGraphOperator

23 deriving (Binary, Generic)

24data ExecuteHeadName = ExecuteHeadName SessionId

25 deriving (Binary, Generic)

26data ExecuteTypeForRelationalExpr = ExecuteTypeForRelationalExpr SessionId RelationalExpr

27 deriving (Binary, Generic)

28data RetrieveInclusionDependencies = RetrieveInclusionDependencies SessionId

29 deriving (Binary, Generic)

30data RetrievePlanForDatabaseContextExpr = RetrievePlanForDatabaseContextExpr SessionId DatabaseContextExpr

31 deriving (Binary, Generic)

32data RetrieveTransactionGraph = RetrieveTransactionGraph SessionId

33 deriving (Binary, Generic)

34data RetrieveHeadTransactionId = RetrieveHeadTransactionId SessionId

35 deriving (Binary, Generic)

36data CreateSessionAtCommit = CreateSessionAtCommit TransactionId

37 deriving (Binary, Generic)

38data CreateSessionAtHead = CreateSessionAtHead HeadName

39 deriving (Binary, Generic)

40data CloseSession = CloseSession SessionId

41 deriving (Binary, Generic)

42data RetrieveAtomTypesAsRelation = RetrieveAtomTypesAsRelation SessionId

43 deriving (Binary, Generic)

44data RetrieveRelationVariableSummary = RetrieveRelationVariableSummary SessionId

45 deriving (Binary, Generic)