diff options
-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 | ||