git.iko.soy/typeable/katip
on master help sign in
Scribes happen to be monoids
ef103afOzgun Ataman
src/Katip/Core.hs+6
compare with master
unifiedsplit
@@ -101,6 +101,12 @@ data Scribe = Scribe {
101 }
101 }
102
102
103
103
104+instance Monoid Scribe where
105+ mempty = Scribe $ const $ return ()
106+ mappend (Scribe a) (Scribe b) = Scribe $ \ item -> do
107+ a item
108+ b item
109+
104-------------------------------------------------------------------------------
110-------------------------------------------------------------------------------
105data LogEnv = LogEnv {
111data LogEnv = LogEnv {
106 _logEnvHost :: HostName
112 _logEnvHost :: HostName