Two implementations of concurrent loggers in haskell