@@ -1317,11 +1317,11 @@ backgroundRetryForwards = do
1317-- Fork the background prune loop (which runs an immediate sweep on its
1317-- Fork the background prune loop (which runs an immediate sweep on its
1318-- first tick) and start the HTTP listener. The forward-retry loop only
1318-- first tick) and start the HTTP listener. The forward-retry loop only
1319-- runs when federation is enabled.
1319-- runs when federation is enabled.
1320−main : IO {network, console, clock, random, r *challenges, r *forwardFailures, r *forwards, r *messages, r *presence, r *seqCounter, r *sessions, w *challenges, w *forwardFailures, w *forwards, w *messages, w *presence, w *seqCounter, w *sessions} {}
1320+main : IO _ {}
1321main = do
1321main = do
1322 logInfo ("Skrepka relay server starting on " ++ bindHost ++ ":" ++ show listenPort ++ " ...")
1322 logInfo ("Skrepka relay server starting on " ++ bindHost ++ ":" ++ show listenPort ++ " ...")
1323 logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
1323 logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
1324 fork backgroundPrune
1324 fork backgroundPrune
1325 when federationEnabled (fork backgroundRetryForwards)
1325 when federationEnabled (fork backgroundRetryForwards)
1326− listenOn bindHost listenPort api
1326+ _ <- listenOn bindHost listenPort api
1327 yield {}
1327 yield {}