@@ -454,6 +454,8 @@ initLogEnv an env = LogEnv
456-------------------------------------------------------------------------------
456-------------------------------------------------------------------------------
457+-- | Add a scribe to the list. All future log calls will go to this
458+-- scribe in addition to the others.
457registerScribe
459registerScribe
459 -- ^ Name the scribe
461 -- ^ Name the scribe
@@ -464,6 +466,8 @@ registerScribe nm h = logEnvScribes . at nm .~ Just h
466-------------------------------------------------------------------------------
468-------------------------------------------------------------------------------
469+-- | Remove a scribe from the list. All future log calls will no
470+-- longer use this scribe. If the given scribe doesn't exist, its a no-op.
467unregisterScribe
471unregisterScribe
469 -- ^ Name of the scribe
473 -- ^ Name of the scribe
@@ -472,6 +476,14 @@ unregisterScribe
472unregisterScribe nm = logEnvScribes . at nm .~ Nothing
476unregisterScribe nm = logEnvScribes . at nm .~ Nothing
479+-------------------------------------------------------------------------------
480+-- | Unregister *all* scribes. Logs will go off into space from this
481+-- point onward until new scribes are added.
485+clearScribes = logEnvScribes .~ mempty
476-------------------------------------------------------------------------------
488-------------------------------------------------------------------------------
477-- | Monads where katip logging actions can be performed
489-- | Monads where katip logging actions can be performed