0ac92a3 · skrepka · git.iko.soy

git.iko.soy/skrepka

Fix main: all statements as _ <- binds except final listenOn

commit0ac92a3e3870df7caa9fcd4d68c5e41bb5ce9460 authoriko <mail@iko.soy> dateSat 11 Jul 2026, 12:11 (3 months ago) parent73e8ac0

1 file changed+3−3

unifiedsplit

server.knot+3−3

@@ -1319,7 +1319,7 @@ backgroundRetryForwards = do

13191319-- runs when federation is enabled.

13201320main = do

13211321 _ <- logInfo ("Skrepka relay server starting on " ++ bindHost ++ ":" ++ show listenPort ++ " ...")

1322− logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))

1323− fork backgroundPrune

1324− when federationEnabled (fork backgroundRetryForwards)

1322+ _ <- logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))

1323+ _ <- fork backgroundPrune

1324+ _ <- when federationEnabled (fork backgroundRetryForwards)

13251325 listenOn bindHost listenPort api