Fix main: bind listenOn, use let with explicit {} type as final pure value
commitd93928fef03d2c28b5dbc82e9c626c975c7d5ed1
authoriko <mail@iko.soy>
dateSat 11 Jul 2026, 12:28 (3 months ago)
parent191f599
server.knot+3−1
@@ -1323,4 +1323,6 @@ main = do
13231323 _ <- logInfo (" federation: " ++ (if federationEnabled then "enabled" else "disabled"))
13241324 _ <- fork backgroundPrune
13251325 _ <- when federationEnabled (fork backgroundRetryForwards)
1326− listenOn bindHost listenPort api
1326+ _ <- listenOn bindHost listenPort api
1327+ let done : {} = {}
1328+ done