Binary request body decoder

src/Data/Binary/Local.hs

@@ -76,7 +76,6 @@ decodeIncremental
     -- value again from the same stream, pass the buffer to the next call of
     -- this function.
 decodeIncremental src readBytes buf decode = go buf $ runGetIncremental decode
-    --readBytes <- requestBody <$> waiRequest
     where
     go _ (Fail remains consumed err) = do
         let df = DecodeFail