summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Internal/Vector.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2009-10-15 09:51:44 +0000
committerAlberto Ruiz <aruiz@um.es>2009-10-15 09:51:44 +0000
commit026f20453ff3c8981ef6cab2d5d865837977b78d (patch)
tree1a19e92155bb9afc206f8a7fae67ecf63bdc855d /lib/Data/Packed/Internal/Vector.hs
parenta9722cf16fe322985c998ab290cf03213b539e49 (diff)
default transdata and constantD
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
-rw-r--r--lib/Data/Packed/Internal/Vector.hs1
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-}
172join :: Storable t => [Vector t] -> Vector t 172join :: Storable t => [Vector t] -> Vector t
173join [] = error "joining zero vectors" 173join [] = error "joining zero vectors"
174join [v] = v
174join as = unsafePerformIO $ do 175join 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