Permalink
Browse files

HS.ZoomCache: readByteString0: drop 1 on terminator

  • Loading branch information...
1 parent 86e071e commit ee4dafb0971838546a53c0e9ef636147a61910af @kfish committed Apr 2, 2012
Showing with 4 additions and 1 deletion.
  1. +4 −1 HeapScope/ZoomCache.hs
@@ -46,7 +46,10 @@ instance ZoomReadable HeapProfile where
readByteString0 :: (Functor m, Monad m)
=> Iteratee ByteString m ByteString
-readByteString0 = I.takeWhile (/= 0)
+readByteString0 = do
+ bs <- I.takeWhile (/= 0)
+ I.drop 1
+ return bs
readHPHeader :: (Functor m, Monad m)
=> Iteratee ByteString m HPHeader

0 comments on commit ee4dafb

Please sign in to comment.