Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/IOExtras/ReadIORef.hs
module NHC.IOExtras ( readIORef ) where import DIORef import LowVector readIORef :: IORef a -> IO a readIORef (IORef v) = do primVectorIndexC v 0
