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) |