Commit 425434bc authored by Simon Peyton Jones's avatar Simon Peyton Jones

Merge branch 'master' of

parents c79768da 09803f8c
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 ()
......@@ -9,4 +9,5 @@ test('5054', reqlib('hmatrix'), compile, ['-package hmatrix'])
test('5054_2', reqlib('hmatrix'), compile, ['-package hmatrix'])
test('5486', normal, compile, [''])
test('5681', normal, compile, [''])
test('6158', [reqlib('vector'), reqlib('primitive')], compile, ['-package vector -package primitive'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment