diff options
author | Reiner Pope <reiner.pope@gmail.com> | 2012-01-07 10:59:02 +1100 |
---|---|---|
committer | Reiner Pope <reiner.pope@gmail.com> | 2012-01-07 11:13:03 +1100 |
commit | 7482b3c5929c65ff793d9cab097e9625ddfb2e4c (patch) | |
tree | 3c90f68f7a599f719066ddcd7f38cd458eb11d1f /lib/Data/Packed | |
parent | f71aa6c3202948c3ce1252871edf4554a1b47db4 (diff) |
Removed NOINLINE on newUndefinedMatrix, newUndefinedVector
Diffstat (limited to 'lib/Data/Packed')
-rw-r--r-- | lib/Data/Packed/ST.hs | 2 |
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 | |||
98 | writeVector :: Storable t => STVector s t -> Int -> t -> ST s () | 98 | writeVector :: Storable t => STVector s t -> Int -> t -> ST s () |
99 | writeVector = safeIndexV unsafeWriteVector | 99 | writeVector = safeIndexV unsafeWriteVector |
100 | 100 | ||
101 | {-# NOINLINE newUndefinedVector #-} | ||
102 | newUndefinedVector :: Storable t => Int -> ST s (STVector s t) | 101 | newUndefinedVector :: Storable t => Int -> ST s (STVector s t) |
103 | newUndefinedVector = unsafeIOToST . fmap STVector . createVector | 102 | newUndefinedVector = unsafeIOToST . fmap STVector . createVector |
104 | 103 | ||
@@ -172,7 +171,6 @@ readMatrix = safeIndexM unsafeReadMatrix | |||
172 | writeMatrix :: Storable t => STMatrix s t -> Int -> Int -> t -> ST s () | 171 | writeMatrix :: Storable t => STMatrix s t -> Int -> Int -> t -> ST s () |
173 | writeMatrix = safeIndexM unsafeWriteMatrix | 172 | writeMatrix = safeIndexM unsafeWriteMatrix |
174 | 173 | ||
175 | {-# NOINLINE newUndefinedMatrix #-} | ||
176 | newUndefinedMatrix :: Storable t => MatrixOrder -> Int -> Int -> ST s (STMatrix s t) | 174 | newUndefinedMatrix :: Storable t => MatrixOrder -> Int -> Int -> ST s (STMatrix s t) |
177 | newUndefinedMatrix order r c = unsafeIOToST $ fmap STMatrix $ createMatrix order r c | 175 | newUndefinedMatrix order r c = unsafeIOToST $ fmap STMatrix $ createMatrix order r c |
178 | 176 | ||