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

fix ifdef indentation (#51)

Browse source
This commit is contained in:
Connor Clark 2016-07-22 14:29:05 -07:00
parent ab4dea344d
commit 86bad965ce
2 changed files with 1076 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1074
benchmarks.html Normal file
View file

File diff suppressed because one or more lines are too long

4
src/Network/GRPC/LowLevel/Server.hs
View file

@ -84,11 +84,11 @@ forkServer Server{..} f = do
False -> do False -> do
tid <- forkFinally f cleanup tid <- forkFinally f cleanup
atomically $ modifyTVar' outstandingForks (S.insert tid) atomically $ modifyTVar' outstandingForks (S.insert tid)
#ifdef DEBUG #ifdef DEBUG
currSet <- readTVarIO outstandingForks currSet <- readTVarIO outstandingForks
grpcDebug $ "forkServer: number of outstandingForks is " grpcDebug $ "forkServer: number of outstandingForks is "
++ show (S.size currSet) ++ show (S.size currSet)
#endif #endif
return True return True
where cleanup _ = do where cleanup _ = do
tid <- myThreadId tid <- myThreadId