git.iko.soy/project-m36
on f7fc888 help sign in
project-m36/src/lib/ProjectM36/TransactionGraph/Types.hs
12 lines 442 B history raw
1module ProjectM36.TransactionGraph.Types where
2import ProjectM36.Base
4transactions :: TransactionGraph -> S.Set Transaction
5transactions (TransactionGraph _ t) = t
7transactionHeads :: TransactionGraph -> TransactionHeads
8transactionHeads (TransactionGraph heads _) = heads
10transactionInfoDiffs :: TransactionInfo -> TransactionDiffs
11transactionInfoDiffs (TransactionInfo _ d _) = d
12transactionInfoDiffs (MergeTransactionInfo _ _ d _ ) = d