project-m36-0.8: src/lib/ProjectM36/TransactionInfo.hs

module ProjectM36.TransactionInfo where
import ProjectM36.Base
import Data.Time.Clock
import Data.List.NonEmpty

-- | Create a TransactionInfo with just one parent transaction ID.
singleParent :: TransactionId -> UTCTime -> TransactionInfo
singleParent tid stamp' = TransactionInfo {
  parents = tid :| [],
  stamp = stamp' }