eeva/gRPC-haskell
1
0
Fork 0
mirror of https://github.com/unclechu/gRPC-haskell.git synced 2024-06-26 14:38:35 +02:00
Code Issues Projects Releases Wiki Activity

fix broken test, fix stack.yaml (#78)

Browse Source
This commit is contained in:
Connor Clark 2016-12-08 10:10:32 -08:00 committed by GitHub Enterprise
parent 3530c331f3
commit a54d48542b
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
stack.yaml
View File

@ -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

6
tests/TestServer.hs
View File

@ -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