Fix main: bind listenOn with _ <- too, yield {} as final IO value
commit997b9d0f2a46d22fc38ce7a599e52cca15aa655c
authoriko <mail@iko.soy>
dateSat 11 Jul 2026, 12:15 (3 months ago)
parent0ac92a3
server.knot+2−1
@@ -1322,4 +1322,5 @@ main = do
13221322 _ <- logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
13231323 _ <- fork backgroundPrune
13241324 _ <- when federationEnabled (fork backgroundRetryForwards)
1325− listenOn bindHost listenPort api
1325+ _ <- listenOn bindHost listenPort api
1326+ yield {}