summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Data/Packed/ST.hs2
1 files changed, 0 insertions, 2 deletions
diff --git a/lib/Data/Packed/ST.hs b/lib/Data/Packed/ST.hs
index 22aff07..00f5e78 100644
--- a/lib/Data/Packed/ST.hs
+++ b/lib/Data/Packed/ST.hs
@@ -98,7 +98,6 @@ readVector = safeIndexV unsafeReadVector
98writeVector :: Storable t => STVector s t -> Int -> t -> ST s () 98writeVector :: Storable t => STVector s t -> Int -> t -> ST s ()
99writeVector = safeIndexV unsafeWriteVector 99writeVector = safeIndexV unsafeWriteVector
100 100
101{-# NOINLINE newUndefinedVector #-}
102newUndefinedVector :: Storable t => Int -> ST s (STVector s t) 101newUndefinedVector :: Storable t => Int -> ST s (STVector s t)
103newUndefinedVector = unsafeIOToST . fmap STVector . createVector 102newUndefinedVector = unsafeIOToST . fmap STVector . createVector
104 103
@@ -172,7 +171,6 @@ readMatrix = safeIndexM unsafeReadMatrix
172writeMatrix :: Storable t => STMatrix s t -> Int -> Int -> t -> ST s () 171writeMatrix :: Storable t => STMatrix s t -> Int -> Int -> t -> ST s ()
173writeMatrix = safeIndexM unsafeWriteMatrix 172writeMatrix = safeIndexM unsafeWriteMatrix
174 173
175{-# NOINLINE newUndefinedMatrix #-}
176newUndefinedMatrix :: Storable t => MatrixOrder -> Int -> Int -> ST s (STMatrix s t) 174newUndefinedMatrix :: Storable t => MatrixOrder -> Int -> Int -> ST s (STMatrix s t)
177newUndefinedMatrix order r c = unsafeIOToST $ fmap STMatrix $ createMatrix order r c 175newUndefinedMatrix order r c = unsafeIOToST $ fmap STMatrix $ createMatrix order r c
178 176