git.iko.soy/skrepka
on master help sign in
Fix main: bind listenOn with _ <- too, yield {} as final IO value
997b9d0iko
server.knot+2−1
compare with master
unifiedsplit
@@ -1322,4 +1322,5 @@ main = do
1322 _ <- logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
1322 _ <- logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
1323 _ <- fork backgroundPrune
1323 _ <- fork backgroundPrune
1324 _ <- when federationEnabled (fork backgroundRetryForwards)
1324 _ <- when federationEnabled (fork backgroundRetryForwards)
1325− listenOn bindHost listenPort api
1325+ _ <- listenOn bindHost listenPort api
1326+ yield {}