little-logger 0.3.0 → 0.3.1
raw patch · 2 files changed
+7/−3 lines, 2 files
Files
- little-logger.cabal +2/−2
- src/LittleLogger/Common.hs +5/−1
little-logger.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: aba3bd1382858101a107dccd5d1945a8fd38e248c5f95f8ebfa7c9f8c01e72e5+-- hash: b0fef8080b3eeaf20d63bd78a5dd95fd681c385a40581ee6fb4821e795a0da4d name: little-logger-version: 0.3.0+version: 0.3.1 synopsis: Basic logging based on co-log description: Please see the README on GitHub at <https://github.com/ejconlon/little-logger#readme> category: Logging
src/LittleLogger/Common.hs view
@@ -7,6 +7,7 @@ , defaultSimpleLogAction , filterActionSeverity , newSimpleLogAction+ , runLogAction , runSimpleLogAction ) where @@ -23,7 +24,10 @@ newSimpleLogAction f = fmap (\run -> LogAction (run . f)) askRunInIO runSimpleLogAction :: MonadIO m => SimpleLogAction -> Message -> m ()-runSimpleLogAction (LogAction actIO) = liftIO . actIO+runSimpleLogAction = runLogAction++runLogAction :: MonadIO m => LogAction IO msg -> msg -> m ()+runLogAction (LogAction actIO) = liftIO . actIO defaultSimpleLogAction :: SimpleLogAction defaultSimpleLogAction = richMessageAction