From 01b17286b63e9cd74fbf8371ead59557410b2d81 Mon Sep 17 00:00:00 2001 From: Moritz Kiefer Date: Wed, 28 Aug 2019 16:46:14 +0200 Subject: [PATCH] Free slice in OpSendStatusFromServerContext (#90) We allocate the slice in createOpContext via byteStringToSlice but we never freed it. --- core/src/Network/GRPC/LowLevel/Op.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/src/Network/GRPC/LowLevel/Op.hs b/core/src/Network/GRPC/LowLevel/Op.hs index 32244d0..58c24d9 100644 --- a/core/src/Network/GRPC/LowLevel/Op.hs +++ b/core/src/Network/GRPC/LowLevel/Op.hs @@ -108,8 +108,8 @@ freeOpContext (OpSendInitialMetadataContext m _) = C.metadataFree m freeOpContext (OpSendMessageContext (bb, s)) = C.grpcByteBufferDestroy bb >> C.freeSlice s freeOpContext OpSendCloseFromClientContext = return () -freeOpContext (OpSendStatusFromServerContext metadata _ _ _) = - C.metadataFree metadata +freeOpContext (OpSendStatusFromServerContext metadata _ _ s) = + C.metadataFree metadata >> C.freeSlice s freeOpContext (OpRecvInitialMetadataContext metadata) = C.metadataArrayDestroy metadata freeOpContext (OpRecvMessageContext pbb) =