ghc/interpreter/test/exts/refs3.hs

   1 --!!! Testing typechecking of runST
   2 module RunSTTest where
   3
   4 import ST
   5
   6 t1 = runST (return '1')
   7
   8 t2 = runST (do
   9        v <- newSTRef '2'
  10        readSTRef v
  11        )
  12