testsuite/tests/llvm/should_compile/6158.hs


1
2
3
4
5
6
7
8
9
10
11

module M where

import Control.Monad.Primitive
import qualified Data.Vector.Unboxed.Mutable as V
import System.IO.Unsafe (unsafePerformIO)

foo :: ()
foo = unsafePerformIO $ do
    _ <- V.replicate 1 0.0 :: IO (V.MVector RealWorld Double)
    return ()