git.iko.soy/project-m36
on ffe683a help sign in
project-m36/ProjectM36/Transaction.hs
14 lines 637 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2module ProjectM36.Transaction where
3import qualified Data.UUID as U
4import ProjectM36.Base
5import qualified Data.Set as S
7--create a disconnected transaction with a parent
8newDisconnectedTransaction :: U.UUID -> DatabaseContext -> DisconnectedTransaction
9newDisconnectedTransaction parentUUID context = DisconnectedTransaction parentUUID context
11transactionParentUUIDs :: Transaction -> S.Set U.UUID
12transactionParentUUIDs (Transaction _ (TransactionInfo pUUID _) _) = S.singleton pUUID
13transactionParentUUIDs (Transaction _ (MergeTransactionInfo pUUID1 pUUID2 _) _) = S.fromList [pUUID1, pUUID2]