@@ -1317,10 +1317,10 @@ backgroundRetryForwards = do
13171317-- Fork the background prune loop (which runs an immediate sweep on its
13181318-- first tick) and start the HTTP listener. The forward-retry loop only
13191319-- runs when federation is enabled.
1320+main : IO {| r} {}
13201321main = do
13211322 _ <- logInfo ("Skrepka relay server starting on " ++ bindHost ++ ":" ++ show listenPort ++ " ...")
13221323 _ <- logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
13231324 _ <- fork backgroundPrune
13241325 _ <- when federationEnabled (fork backgroundRetryForwards)
1325− _ <- listenOn bindHost listenPort api
1326− yield {}
1326+ listenOn bindHost listenPort api