Scribes happen to be monoids
commitef103af1a4c882625650ae9555bba0a734e99b25
authorOzgun Ataman <ozgun.ataman@soostone.com>
dateSat 31 Jan 2015, 17:24 (12 years ago)
parent298cd0d
src/Katip/Core.hs+6
@@ -101,6 +101,12 @@ data Scribe = Scribe {
101101 }
102102
103103
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+
104110-------------------------------------------------------------------------------
105111data LogEnv = LogEnv {
106112 _logEnvHost :: HostName