git.iko.soy/project-m36
on 52182bc help sign in
project-m36/src/lib/ProjectM36/DisconnectedTransaction.hs
11 lines 419 B history raw
1module ProjectM36.DisconnectedTransaction where
2import ProjectM36.Base
4concreteDatabaseContext :: DisconnectedTransaction -> DatabaseContext
5concreteDatabaseContext (DisconnectedTransaction _ (Schemas context _) _) = context
7schemas :: DisconnectedTransaction -> Schemas
8schemas (DisconnectedTransaction _ s _) = s
10parentId :: DisconnectedTransaction -> TransactionId
11parentId (DisconnectedTransaction pid _ _) = pid