higherkindness/mu-haskell
1
1
Fork 0
mirror of https://github.com/higherkindness/mu-haskell.git synced 2024-10-26 15:49:00 +03:00
Code Issues Projects Releases Wiki Activity

Do not create a loop in bidi gRPC (#306)

Browse Source 
Co-authored-by: Flavio Corpa <flavio.corpa@47deg.com>
This commit is contained in:
Alejandro Serrano 2021-04-30 16:41:42 +02:00 committed by GitHub
parent 26b4fc9ec6
commit 75e7554603
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
grpc/server/src/Mu/GRpc/Server.hs
View File

@ -465,15 +465,15 @@ instance (GRpcInputWrapper p vref v, GRpcOutputWrapper p rref r, MonadIO m)
cstreamFinalizer _
= liftIO $ atomically (closeTMChan chan) >> wait promise
readNext _
= do nextOutput <- liftIO $ atomically $ tryTakeTMVar var
= do nextOutput <- liftIO $ atomically $ takeTMVar var
case nextOutput of
Just (Just o) ->
Just o ->
pure $ Just ((), buildGRpcOWTy (Proxy @p) (Proxy @rref) o)
Just Nothing -> do
Nothing -> do
liftIO $ cancel promise
pure Nothing
Nothing -> -- no new elements to output
readNext ()
-- Nothing -> -- no new elements to output
-- readNext ()
pure ((), IncomingStream cstreamHandler cstreamFinalizer, (), OutgoingStream readNext)
-----