Add missing PROFILING CPP pragma

GitOrigin-RevId: b50acc16cd7194e5a778a34592d44cf21c969d52
This commit is contained in:
Brandon Simmons 2020-11-25 15:26:01 -05:00 committed by hasura-bot
parent d4d5c53468
commit bcf251a469

View File

@ -297,7 +297,9 @@ createServerApp (WSServer logger@(L.Logger writeLog) serverStatus) wsHandlers !i
-- Requires a fork of 'wai-websockets' and 'websockets', it looks like.
-- Adding `package` stanzas with -Xstrict -XStrictData for those two packages
-- helped, cutting the number of thunks approximately in half.
# ifndef PROFILING
liftIO $ $assertNFHere wsConn -- so we don't write thunks to mutable vars
# endif
let whenAcceptingInsertConn = liftIO $ STM.atomically $ do
status <- STM.readTVar serverStatus