summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorReiner Pope <reiner.pope@gmail.com>2012-01-07 10:59:02 +1100
committerReiner Pope <reiner.pope@gmail.com>2012-01-07 11:13:03 +1100
commit7482b3c5929c65ff793d9cab097e9625ddfb2e4c (patch)
tree3c90f68f7a599f719066ddcd7f38cd458eb11d1f
parentf71aa6c3202948c3ce1252871edf4554a1b47db4 (diff)
Removed NOINLINE on newUndefinedMatrix, newUndefinedVector
-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