atomic-modify-general-0.1.0.0: compat-sa-size-old/Data/IORef/AtomicModify/SmallArraySize.hs

{-# language MagicHash #-}
{-# language UnboxedTuples #-}
module Data.IORef.AtomicModify.SmallArraySize
  ( getSizeofSmallMutableArray#
  ) where
import GHC.Exts (SmallMutableArray#, State#, RealWorld, Int#, sizeofSmallMutableArray#)

getSizeofSmallMutableArray# :: SmallMutableArray# s a -> State# RealWorld -> (# State# RealWorld, Int# #)
getSizeofSmallMutableArray# sma s = (# s, sizeofSmallMutableArray# sma #)