@@ -36,7 +36,7 @@ main = do
3636 -- hot-swap scribes at runtime if you need to. 'closeScribes' is
3737 -- blocking and flushes all messages out of a scribe and cleans up
3838 -- resources that were allocated at creation.
39− handleScribe <- mkHandleScribe ColorIfTerminal stdout InfoS V2
39+ handleScribe <- mkHandleScribe ColorIfTerminal stdout (permitItem InfoS) V2
4040 let mkLogEnv = registerScribe "stdout" handleScribe defaultScribeSettings =<< initLogEnv "MyApp" "production"
4141 bracket mkLogEnv closeScribes $ \le -> do
4242 let s = MyState M.mempty mempty le