runtime/src/Data/Bond/Internal/SimpleBinaryProto.hs
Reduce duplication Open
Open
stream <- either throwError return $ bondMarshal CompactBinaryProto v
- Read upRead up
- Exclude checks
Found
stream <- either throwError return $
bondMarshal CompactBinaryProto v
putWord32le $ fromIntegral $ BL.length stream
putLazyByteString stream
Perhaps
Combine with runtime/src/Data/Bond/Internal/SimpleBinaryProto.hs:262:9
Reduce duplication Open
Open
size <- getWord32le
- Read upRead up
- Exclude checks
Found
size <- getWord32le
bs <- getLazyByteString (fromIntegral size)
return $ BondedStream bs
Perhaps
Combine with runtime/src/Data/Bond/Internal/SimpleBinaryProto.hs:216:9