Loop?

example.hs

findIncrementing :: URL -> IO [Link]
findIncrementing base = do
    find <- newChan
    done <- newChan
    forkIO $ worker find done


    let next links n = do
          ml <- readChan done
          case ml of
            Nothing -> return links
            Just l  -> next (l:links) (n+1)

    next [] 1