Logging threads are not killed when node dies

The following two threads are not shutdown when the node dies:

* ['startResourceTracer'](https://github.com/input-output-hk/cardano-node/blob/master/cardano-node/src/Cardano/Node/Tracing/Tracers/Resources.hs?plain=1#L20-L21)
* ['startPeerTracer'](https://github.com/input-output-hk/cardano-node/blob/master/cardano-node/src/Cardano/Node/Tracing/Tracers/Peer.hs#L47-L48)

Note that `link` only makes sure that if the created thread fails the main thread will receive an async exception, but it does not the other way around. Instead using `async` and `link` combination, one should use `withAsync` and write both function using the `with...` pattern:

```haskell
withResourceTracer :: Tracer IO RessourceStats
-> Int
-> (Async a -> IO ())
-> IO ()
withResournceTracer tr delayMilliseconds k = do
withAsync resourceThread k
where
...
```

The caller (e.g. the conitnuation `k`) ought to be responsible for makeing sure that the started thread fails the main thread will terminate. This is usually done with something like `wait`.