diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-06-27 09:15:27 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-06-27 09:15:27 +0200 |
| commit | 4d96b90c4cfd38cdb51f3dc66a8a644bd87cdbff (patch) | |
| tree | d7b82283f08e5947b06fdec4f403a5bc87c09f35 /packages/base/src/Internal/ST.hs | |
| parent | 624046d6b55d37104f950e8888ab68c53a2e6bf0 (diff) | |
use slice interface for lapack funcs (wip)
Diffstat (limited to 'packages/base/src/Internal/ST.hs')
| -rw-r--r-- | packages/base/src/Internal/ST.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/base/src/Internal/ST.hs b/packages/base/src/Internal/ST.hs index 73cdf0c..23fda99 100644 --- a/packages/base/src/Internal/ST.hs +++ b/packages/base/src/Internal/ST.hs | |||
| @@ -150,6 +150,7 @@ unsafeFreezeMatrix (STMatrix x) = unsafeIOToST . return $ x | |||
| 150 | freezeMatrix :: (Storable t) => STMatrix s t -> ST s (Matrix t) | 150 | freezeMatrix :: (Storable t) => STMatrix s t -> ST s (Matrix t) |
| 151 | freezeMatrix m = liftSTMatrix id m | 151 | freezeMatrix m = liftSTMatrix id m |
| 152 | 152 | ||
| 153 | -- FIXME | ||
| 153 | cloneMatrix m = cloneVector (xdat m) >>= return . (\d' -> m{xdat = d'}) | 154 | cloneMatrix m = cloneVector (xdat m) >>= return . (\d' -> m{xdat = d'}) |
| 154 | 155 | ||
| 155 | {-# INLINE safeIndexM #-} | 156 | {-# INLINE safeIndexM #-} |