@@ -52,7 +52,7 @@
52-- getLogEnv = asks logEnv
52-- getLogEnv = asks logEnv
53-- -- with lens:
53-- -- with lens:
54-- -- getLogEnv = view logEnv
54-- -- getLogEnv = view logEnv
55−-- localLogEnv f (App m) = App (local (\s -> s { logEnv = f (logEnv s)}) m)
55+-- localLogEnv f (App m) = App (local (\\s -> s { logEnv = f (logEnv s)}) m)
56-- -- with lens:
56-- -- with lens:
57-- -- localLogEnv f (App m) = App (local (over logEnv f) m)
57-- -- localLogEnv f (App m) = App (local (over logEnv f) m)
@@ -61,13 +61,13 @@
61-- getKatipContext = asks logContext
61-- getKatipContext = asks logContext
62-- -- with lens:
62-- -- with lens:
63-- -- getKatipContext = view logContext
63-- -- getKatipContext = view logContext
64−-- localKatipContext f (App m) = App (local (\s -> s { logContext = f (logContext s)}) m)
64+-- localKatipContext f (App m) = App (local (\\s -> s { logContext = f (logContext s)}) m)
65-- -- with lens:
65-- -- with lens:
66-- -- localKatipContext f (App m) = App (local (over logContext f) m)
66-- -- localKatipContext f (App m) = App (local (over logContext f) m)
67-- getKatipNamespace = asks logNamespace
67-- getKatipNamespace = asks logNamespace
68-- -- with lens:
68-- -- with lens:
69-- -- getKatipNamespace = view logNamespace
69-- -- getKatipNamespace = view logNamespace
70−-- localKatipNamespace f (App m) = App (local (\s -> s { logNamespace = f (logNamespace s)}) m)
70+-- localKatipNamespace f (App m) = App (local (\\s -> s { logNamespace = f (logNamespace s)}) m)
71-- -- with lens:
71-- -- with lens:
72-- -- localKatipNamespace f (App m) = App (local (over logNamespace f) m)
72-- -- localKatipNamespace f (App m) = App (local (over logNamespace f) m)