@@ -14,7 +14,6 @@
1414-- import Katip
1515-- import Katip.Scribes.ElasticSearch
1616--
17−--
1817-- main :: IO ()
1918-- main = do
2019-- mgr <- newManager defaultManagerSettings
@@ -25,12 +24,12 @@
2524-- -- Reasonable for single-node in development
2625-- -- defaultEsScribeCfgV5 { essIndexSettings = IndexSettings (ShardCound 1) (ReplicaCount 0)}
2726-- bhe
28−-- (IndexName "all-indices-prefixed-with")
29−-- (MappingName "application-logs")
30−-- DebugS
31−-- V3
32−-- let mkLogEnv = registerScribe "es" esScribe defaultScribeSettings =<< initLogEnv "MyApp" "production"
33−-- bracket mkLogEnv closeScribes $ \le -> runKatipT le $ do
27+-- (IndexName "all-indices-prefixed-with")
28+-- (MappingName "application-logs")
29+-- DebugS
30+-- V3
31+-- let mkLogEnv = registerScribe "es" esScribe defaultScribeSettings =<< initLogEnv \"MyApp\" "production"
32+-- bracket mkLogEnv closeScribes $ \\le -> runKatipT le $ do
3433-- logMsg "ns" InfoS "This goes to elasticsearch"
3534--
3635-- @