diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-01-07 18:51:20 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-01-07 18:51:20 +0100 |
commit | 776f4b9fbda8eeec006b24ed5f1548be752eae3c (patch) | |
tree | cfafa35ecc9bcb5562b3cd648e98c20d4fceaa58 /lib/Data/Packed/ST.hs | |
parent | 97e7156b59811bd51d0a9d6060e868eafedfcc75 (diff) |
remove warnings
Diffstat (limited to 'lib/Data/Packed/ST.hs')
-rw-r--r-- | lib/Data/Packed/ST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Data/Packed/ST.hs b/lib/Data/Packed/ST.hs index c96a209..c1e7aef 100644 --- a/lib/Data/Packed/ST.hs +++ b/lib/Data/Packed/ST.hs | |||
@@ -171,7 +171,7 @@ writeMatrix :: Storable t => STMatrix s t -> Int -> Int -> t -> ST s () | |||
171 | writeMatrix = safeIndexM unsafeWriteMatrix | 171 | writeMatrix = safeIndexM unsafeWriteMatrix |
172 | 172 | ||
173 | newUndefinedMatrix :: Storable t => MatrixOrder -> Int -> Int -> ST s (STMatrix s t) | 173 | newUndefinedMatrix :: Storable t => MatrixOrder -> Int -> Int -> ST s (STMatrix s t) |
174 | newUndefinedMatrix order r c = unsafeIOToST $ fmap STMatrix $ createMatrix order r c | 174 | newUndefinedMatrix ord r c = unsafeIOToST $ fmap STMatrix $ createMatrix ord r c |
175 | 175 | ||
176 | {-# NOINLINE newMatrix #-} | 176 | {-# NOINLINE newMatrix #-} |
177 | newMatrix :: Storable t => t -> Int -> Int -> ST s (STMatrix s t) | 177 | newMatrix :: Storable t => t -> Int -> Int -> ST s (STMatrix s t) |