module ProjectM36.TransactionInfo where
import ProjectM36.Base
import Data.Time.Clock
import qualified Data.List.NonEmpty as NE
singleParent :: TransactionId -> UTCTime -> TransactionInfo
singleParent :: TransactionId -> UTCTime -> TransactionInfo
singleParent TransactionId
tid UTCTime
stamp' = TransactionInfo {
parents :: TransactionParents
parents = TransactionId
tid forall a. a -> [a] -> NonEmpty a
NE.:| [],
stamp :: UTCTime
stamp = UTCTime
stamp',
merkleHash :: MerkleHash
merkleHash = forall a. Monoid a => a
mempty }