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

-- | Create a TransactionInfo with just one parent transaction ID.
singleParent :: TransactionId -> UTCTime -> TransactionInfo
singleParent :: TransactionId -> UTCTime -> TransactionInfo
singleParent TransactionId
tid UTCTime
stamp' = TransactionInfo :: TransactionParents -> UTCTime -> MerkleHash -> TransactionInfo
TransactionInfo {
  parents :: TransactionParents
parents = TransactionId
tid TransactionId -> [TransactionId] -> TransactionParents
forall a. a -> [a] -> NonEmpty a
NE.:| [],
  stamp :: UTCTime
stamp = UTCTime
stamp',
  merkleHash :: MerkleHash
merkleHash = MerkleHash
forall a. Monoid a => a
mempty }