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 @>
 -}
 join :: Storable t => [Vector t] -> Vector t
 join [] = error "joining zero vectors"
+join [v] = v
 join as = unsafePerformIO $ do
    let tot = sum (map dim as)
    r@V {fptr = p} <- createVector tot

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