diff --git a/stack.yaml b/stack.yaml index d9d0519..cd18483 100644 --- a/stack.yaml +++ b/stack.yaml @@ -10,7 +10,9 @@ packages: #- location: # git: git@github.mv.awakenetworks.net:awakenetworks/protobuf-wire.git # commit: 2eda7a9e33e8a2f32c3ab8c4ace338b08fb79daa -- location: '../protobuf-wire' +- location: + git: git@github.mv.awakenetworks.net:awakenetworks/protobuf-wire.git + commit: 927c61bbb1002a9278b8a7cbe3968be059f9ff30 extra-dep: true - location: git: git@github.com:awakenetworks/proto3-wire.git diff --git a/tests/TestServer.hs b/tests/TestServer.hs index e598a83..1e83756 100644 --- a/tests/TestServer.hs +++ b/tests/TestServer.hs @@ -19,6 +19,7 @@ import Data.String import Network.GRPC.LowLevel import Network.GRPC.HighLevel.Server +import Network.GRPC.HighLevel.Generated (defaultServiceOptions) handleNormalCall :: ServerRequest 'Normal SimpleServiceRequest SimpleServiceResponse -> IO (ServerResponse 'Normal SimpleServiceResponse) handleNormalCall (ServerNormalRequest meta (SimpleServiceRequest request nums)) = @@ -62,11 +63,12 @@ handleDone exitVar (ServerNormalRequest _ req) = main :: IO () main = do exitVar <- newEmptyMVar - forkIO $ simpleServiceServer SimpleService + forkIO $ simpleServiceServer (SimpleService { simpleServiceDone = handleDone exitVar , simpleServiceNormalCall = handleNormalCall , simpleServiceClientStreamingCall = handleClientStreamingCall , simpleServiceServerStreamingCall = handleServerStreamingCall - , simpleServiceBiDiStreamingCall = handleBiDiStreamingCall } + , simpleServiceBiDiStreamingCall = handleBiDiStreamingCall }) + defaultServiceOptions takeMVar exitVar