module NHC.IOExtras ( readIOArray ) where import Ix import DIOArray import LowVector readIOArray :: Ix ix => IOArray ix elt -> ix -> IO elt readIOArray (MkIOArray b v) ix = primVectorIndexC v (index b ix)