{-# LANGUAGE CPP #-}
module Streamly.Internal.BaseCompat
(
(#.)
, errorWithoutStackTrace
)
where
import Data.Coerce (Coercible, coerce)
{-# INLINE (#.) #-}
(#.) :: Coercible b c => (b -> c) -> (a -> b) -> (a -> c)
#. :: forall b c a. Coercible b c => (b -> c) -> (a -> b) -> a -> c
(#.) b -> c
_f = coerce :: forall a b. Coercible a b => a -> b
coerce
#if !(MIN_VERSION_base(4,9,0))
{-# NOINLINE errorWithoutStackTrace #-}
errorWithoutStackTrace :: [Char] -> a
errorWithoutStackTrace s = error s
#endif