packed-data-0.2.0.0: src/Data/Packed/Internal.hs

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE LinearTypes #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
{-# OPTIONS_GHC -Wno-missing-export-lists #-}

module Data.Packed.Internal where

import GHC.Base
import GHC.Exts

{-# INLINE unPtr #-}
unPtr :: Ptr a %1 -> Addr#
unPtr (Ptr a) = a

{-# INLINE unInt #-}
unInt :: Int %1 -> Int#
unInt (I# i) = i

{-# INLINE unsafeDupablePerformIO #-}
unsafeDupablePerformIO :: IO a -> a
unsafeDupablePerformIO (IO m) = case runRW# m of (# _, !a #) -> a