diff options
| author | Alberto Ruiz <aruiz@um.es> | 2009-10-15 09:51:44 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2009-10-15 09:51:44 +0000 |
| commit | 026f20453ff3c8981ef6cab2d5d865837977b78d (patch) | |
| tree | 1a19e92155bb9afc206f8a7fae67ecf63bdc855d /lib/Data/Packed/Internal/Vector.hs | |
| parent | a9722cf16fe322985c998ab290cf03213b539e49 (diff) | |
default transdata and constantD
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
| -rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 5784861..ac0f176 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
| @@ -171,6 +171,7 @@ infixl 9 @> | |||
| 171 | -} | 171 | -} |
| 172 | join :: Storable t => [Vector t] -> Vector t | 172 | join :: Storable t => [Vector t] -> Vector t |
| 173 | join [] = error "joining zero vectors" | 173 | join [] = error "joining zero vectors" |
| 174 | join [v] = v | ||
| 174 | join as = unsafePerformIO $ do | 175 | join as = unsafePerformIO $ do |
| 175 | let tot = sum (map dim as) | 176 | let tot = sum (map dim as) |
| 176 | r@V {fptr = p} <- createVector tot | 177 | r@V {fptr = p} <- createVector tot |