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