diff --git a/src/PostgREST/AppState.hs b/src/PostgREST/AppState.hs index 3f60ef04a..e8c591b3f 100644 --- a/src/PostgREST/AppState.hs +++ b/src/PostgREST/AppState.hs @@ -115,7 +115,7 @@ init conf@AppConfig{configLogLevel, configDbPoolSize} = do observer $ AppStartObs prettyVersion pool <- initPool conf observer - initWithPool pool conf loggerState metricsState observer --{ stateSocketREST = sock, stateSocketAdmin = adminSock} + initWithPool pool conf loggerState metricsState observer -- Make a new debouncer action. An internal "worker" thread runs forever ensuring "action" runs when the "trigger" is called. The "action" is only executed once over a burst of calls. makeDebouncer :: IO () -> IO (IO ())