diff options
author | Alberto Ruiz <aruiz@um.es> | 2016-10-27 20:55:03 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-10-27 20:55:03 +0200 |
commit | 155cac879362d2672a5504ba134728512b314c60 (patch) | |
tree | e72d8a63fd5b6f57f7f73ac22789c01b212d2164 /packages/base/src/Internal/Vector.hs | |
parent | b32b37472559f202995e894f9a627871737d4619 (diff) | |
parent | c1fdf466a51401bb4e3a36a3398e155361477330 (diff) |
Merge pull request #210 from kjslag/master
compactSVDTol doc and inline dim and subVector
Diffstat (limited to 'packages/base/src/Internal/Vector.hs')
-rw-r--r-- | packages/base/src/Internal/Vector.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/packages/base/src/Internal/Vector.hs b/packages/base/src/Internal/Vector.hs index c4a310d..67d0416 100644 --- a/packages/base/src/Internal/Vector.hs +++ b/packages/base/src/Internal/Vector.hs | |||
@@ -62,6 +62,7 @@ ti = fromIntegral | |||
62 | -- | Number of elements | 62 | -- | Number of elements |
63 | dim :: (Storable t) => Vector t -> Int | 63 | dim :: (Storable t) => Vector t -> Int |
64 | dim = Vector.length | 64 | dim = Vector.length |
65 | {-# INLINE dim #-} | ||
65 | 66 | ||
66 | 67 | ||
67 | -- C-Haskell vector adapter | 68 | -- C-Haskell vector adapter |
@@ -139,6 +140,7 @@ subVector :: Storable t => Int -- ^ index of the starting element | |||
139 | -> Vector t -- ^ source | 140 | -> Vector t -- ^ source |
140 | -> Vector t -- ^ result | 141 | -> Vector t -- ^ result |
141 | subVector = Vector.slice | 142 | subVector = Vector.slice |
143 | {-# INLINE subVector #-} | ||
142 | 144 | ||
143 | 145 | ||
144 | 146 | ||