/usr/web/sources/contrib/fernan/nhc98/src/prelude/IOExtras/NewIORef.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/IOExtras/NewIORef.hs


module NHC.IOExtras
  ( newIORef
  ) where

import DIORef
import LowVector
import _E

newIORef :: a -> IO (IORef a)
newIORef a = do v <- primNewVectorC 1 (_E a)
                return (IORef v)

(Return to Plan 9 Home Page)