cqrs-0.5.0: src/Data/CQRS/Serialize.hs

module Data.CQRS.Serialize
       ( decode'
       ) where

import Data.ByteString (ByteString)
import Data.Serialize (Serialize, decode)

-- | Decode a serialized value "irrefutably".
decode' :: Serialize e => ByteString -> e
decode' = either error id . decode