eeva/gRPC-haskell
1
0
Fork 0
mirror of https://github.com/unclechu/gRPC-haskell.git synced 2024-11-23 03:29:42 +01:00
Code Issues Projects Releases Wiki Activity

Free slice in OpSendStatusFromServerContext (#90)

Browse source 
We allocate the slice in createOpContext via byteStringToSlice but we
never freed it.
This commit is contained in:
Moritz Kiefer 2019-08-28 16:46:14 +02:00 committed by Gabriel Gonzalez
parent 11681ec6b9
commit 01b17286b6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
core/src/Network/GRPC/LowLevel/Op.hs
View file

@ -108,8 +108,8 @@ freeOpContext (OpSendInitialMetadataContext m _) = C.metadataFree m
freeOpContext (OpSendMessageContext (bb, s)) = freeOpContext (OpSendMessageContext (bb, s)) =
C.grpcByteBufferDestroy bb >> C.freeSlice s C.grpcByteBufferDestroy bb >> C.freeSlice s
freeOpContext OpSendCloseFromClientContext = return () freeOpContext OpSendCloseFromClientContext = return ()
freeOpContext (OpSendStatusFromServerContext metadata _ _ _) = freeOpContext (OpSendStatusFromServerContext metadata _ _ s) =
C.metadataFree metadata C.metadataFree metadata >> C.freeSlice s
freeOpContext (OpRecvInitialMetadataContext metadata) = freeOpContext (OpRecvInitialMetadataContext metadata) =
C.metadataArrayDestroy metadata C.metadataArrayDestroy metadata
freeOpContext (OpRecvMessageContext pbb) = freeOpContext (OpRecvMessageContext pbb) =