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

Apply same pluck permission region fix to unregistered serverRequestCall

Browse source
This commit is contained in:
Joel Stanley 2016-07-11 12:53:19 -05:00
parent ca1d5a7205
commit 4ae3936ac9
1 changed files with 31 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Network/GRPC/LowLevel/CompletionQueue/Unregistered.hs
View file

@ -36,7 +36,8 @@ serverRequestCall server cq@CompletionQueue{..} =
withPermission Push cq $ withPermission Push cq $
bracket malloc free $ \callPtr -> bracket malloc free $ \callPtr ->
C.withMetadataArrayPtr $ \metadataArrayPtr -> C.withMetadataArrayPtr $ \metadataArrayPtr ->
C.withCallDetails $ \callDetails -> do C.withCallDetails $ \callDetails ->
withPermission Pluck cq $ do
grpcDebug $ "serverRequestCall: callPtr is " ++ show callPtr grpcDebug $ "serverRequestCall: callPtr is " ++ show callPtr
metadataArray <- peek metadataArrayPtr metadataArray <- peek metadataArrayPtr
tag <- newTag cq tag <- newTag cq