ProjectM36/Server/RemoteCallTypes.hs · project-m36

git.iko.soy/project-m36

on 48a1cfd help sign in

38 lines 1.9 kB history raw

1{-# LANGUAGE DeriveAnyClass, DeriveGeneric #-}

2module ProjectM36.Server.RemoteCallTypes where

3import ProjectM36.Base

4import ProjectM36.TransactionGraph

5import GHC.Generics

6import Data.Binary

7import Data.UUID

9type SessionId = UUID

11data Login = Login

12 deriving (Binary, Generic)

13data Logout = Logout

14 deriving (Binary, Generic)

15data ExecuteRelationalExpr = ExecuteRelationalExpr SessionId RelationalExpr

16 deriving (Binary, Generic)

17data ExecuteDatabaseContextExpr = ExecuteDatabaseContextExpr SessionId DatabaseExpr

18 deriving (Binary, Generic)

19data ExecuteGraphExpr = ExecuteGraphExpr SessionId TransactionGraphOperator

20 deriving (Binary, Generic)

21data ExecuteHeadName = ExecuteHeadName SessionId

22 deriving (Binary, Generic)

23data ExecuteTypeForRelationalExpr = ExecuteTypeForRelationalExpr SessionId RelationalExpr

24 deriving (Binary, Generic)

25data RetrieveInclusionDependencies = RetrieveInclusionDependencies SessionId

26 deriving (Binary, Generic)

27data RetrievePlanForDatabaseContextExpr = RetrievePlanForDatabaseContextExpr SessionId DatabaseExpr

28 deriving (Binary, Generic)

29data RetrieveTransactionGraph = RetrieveTransactionGraph SessionId

30 deriving (Binary, Generic)

31data RetrieveHeadTransactionUUID = RetrieveHeadTransactionUUID SessionId

32 deriving (Binary, Generic)

33data CreateSessionAtCommit = CreateSessionAtCommit UUID

34 deriving (Binary, Generic)

35data CreateSessionAtHead = CreateSessionAtHead HeadName

36 deriving (Binary, Generic)

37data CloseSession = CloseSession SessionId

38 deriving (Binary, Generic)