src/Data/Binary/Internal.hs

    {-# LANGUAGE CPP #-}

    module Data.Binary.Internal
     ( accursedUnutterablePerformIO ) where

    #if MIN_VERSION_bytestring(0,10,6)
    import Data.ByteString.Internal( accursedUnutterablePerformIO )
    #else
    import Data.ByteString.Internal( inlinePerformIO )

    {-# INLINE accursedUnutterablePerformIO #-}
    -- | You must be truly desperate to come to me for help.
    accursedUnutterablePerformIO :: IO a -> a
    accursedUnutterablePerformIO = inlinePerformIO
    #endif