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

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


module NHC.IOExtras
  ( writeIORef
  ) where

import DIORef
import LowVector
import _E

writeIORef :: IORef a -> a -> IO ()
writeIORef (IORef v) a = do primUpdateVectorC 0 (_E a) v

(Return to Plan 9 Home Page)