dph-prim-seq: wibble
authorBen Lippmeier <benl@ouroborus.net>
Thu, 15 Dec 2011 08:23:17 +0000 (19:23 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Thu, 15 Dec 2011 08:23:17 +0000 (19:23 +1100)
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/UVSegd.hs

index 42e7641..d8cf42f 100644 (file)
@@ -191,7 +191,8 @@ length          = U.length . uvsegd_vsegids
 -- | O(segs). Yield the lengths of the segments described by a `UVSegd`.
 takeLengths :: UVSegd -> Vector Int
 takeLengths (UVSegd _ vsegids ussegd)
 -- | O(segs). Yield the lengths of the segments described by a `UVSegd`.
 takeLengths :: UVSegd -> Vector Int
 takeLengths (UVSegd _ vsegids ussegd)
-        = U.map (U.index (here "takeLengths") (USSegd.takeLengths ussegd)) vsegids
+ = let         !lengths        = USSegd.takeLengths ussegd
+   in  U.map (U.index (here "takeLengths") lengths) vsegids
 {-# INLINE_U takeLengths #-}
 
 
 {-# INLINE_U takeLengths #-}