fork download
  1. import Data.IORef
  2.  
  3. a = newIORef 10
  4.  
  5. main = do
  6. ref <- newIORef 10
  7. let test = readIORef ref >>= print
  8. writeIORef ref 1
  9. test
Success #stdin #stdout 0s 6224KB
stdin
Standard input is empty
stdout
1