Fix main: concrete effect row, listenOn as final IO expression (matching backgroundPrune pattern)
commit191f599cf9bc280bc418fab3c7aaf0958aab993b
authoriko <mail@iko.soy>
dateSat 11 Jul 2026, 12:24 (3 months ago)
parent8b28231
server.knot+1−2
@@ -1323,5 +1323,4 @@ main = do
13231323 _ <- logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
13241324 _ <- fork backgroundPrune
13251325 _ <- when federationEnabled (fork backgroundRetryForwards)
1326− _ <- listenOn bindHost listenPort api
1327− {}
1326+ listenOn bindHost listenPort api