@@ -1317,11 +1317,9 @@ 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 _ {}
13211320main = do
1322− logInfo ("Skrepka relay server starting on " ++ bindHost ++ ":" ++ show listenPort ++ " ...")
1321+ _ <- logInfo ("Skrepka relay server starting on " ++ bindHost ++ ":" ++ show listenPort ++ " ...")
13231322 logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
13241323 fork backgroundPrune
13251324 when federationEnabled (fork backgroundRetryForwards)
1326− _ <- listenOn bindHost listenPort api
1327− yield {}
1325+ listenOn bindHost listenPort api