More optimizations for Data.Conduit.Binary.mapM_

See haskell/bytestring#9