cqrs-testkit-0.10.0: src/Data/CQRS/Test/Internal/AggregateAction.hs

module Data.CQRS.Test.Internal.AggregateAction
    ( byteStringAggregateAction )
    where

import           Data.ByteString (ByteString)
import qualified Data.ByteString as B
import           Data.CQRS.Types.AggregateAction

byteStringAggregateAction :: AggregateAction ByteString ByteString
byteStringAggregateAction maybeA e = maybe e (\a -> B.append a e) maybeA