testsuite/tests/ghc-regress/safeHaskell/unsafeLibs/Dep02.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

module Dep02 where

import Control.Monad
import Control.Monad.ST.Lazy
import Data.STRef.Lazy

sumST :: Num a => [a] -> a
sumST xs = runST $ do
    n <- newSTRef 0
    forM_ xs $ \x -> do
        modifySTRef n (+x)
    readSTRef n

badST :: ()
badST = runST $ unsafeIOToST $ putStrLn "Hello World"