loggerTo :: Handle -> IO L.Logger
loggerTo h = do
  t <- logger
  t <$> L.atomic (L.toHandle h)
loggerTo :: Handle -> IO L.Logger
loggerTo h = do
  t <- logger
  t <$> L.atomic (L.toHandle h)
loggerTo h = do
  t <- logger
  t <$> L.atomic (L.toHandle h)