git.iko.soy/typeable/bloodhound
on master help sign in
explicit Builder
8b93099Chris Allen
Database/Bloodhound/Client.hs+1−1
compare with master
unifiedsplit
@@ -160,7 +160,7 @@ collapseStream :: [BulkOperation] -> L.ByteString
160collapseStream stream = collapsed where
160collapseStream stream = collapsed where
161 blobs = intersperse "\n" $ concat $ fmap getStreamChunk stream
161 blobs = intersperse "\n" $ concat $ fmap getStreamChunk stream
162 mashedTaters = mash (mempty :: Builder) blobs
162 mashedTaters = mash (mempty :: Builder) blobs
163− collapsed = toLazyByteString $ mappend mashedTaters "\n"
163+ collapsed = toLazyByteString $ mappend mashedTaters (byteString "\n")
164
164
165mash :: Builder -> [L.ByteString] -> Builder
165mash :: Builder -> [L.ByteString] -> Builder
166mash builder xs = foldl' (\b x -> mappend b (lazyByteString x)) builder xs
166mash builder xs = foldl' (\b x -> mappend b (lazyByteString x)) builder xs