lambdabot-core 5.3.1 → 5.3.1.1
raw patch · 4 files changed
+15/−12 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- lambdabot-core.cabal +3/−3
- src/Lambdabot/Config.hs +1/−0
- src/Lambdabot/Config/Core.hs +2/−1
- src/Lambdabot/State.hs +9/−8
lambdabot-core.cabal view
@@ -1,11 +1,11 @@ name: lambdabot-core-version: 5.3.1+version: 5.3.1.1 license: GPL license-file: LICENSE author: Don Stewart-maintainer: Bertram Felgenhauer <int-e@gmx.de>+maintainer: Naïm Favier <n@monade.li> category: Development, Web synopsis: Lambdabot core functionality@@ -19,7 +19,7 @@ build-type: Simple cabal-version: >= 1.10-tested-with: GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.4, GHC == 8.10.4, GHC == 9.0.2, GHC == 9.2.4+tested-with: GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.4, GHC == 8.10.4, GHC == 9.0.2, GHC == 9.2.4, GHC == 9.4.5 extra-source-files: AUTHORS.md COMMENTARY.md
src/Lambdabot/Config.hs view
@@ -2,6 +2,7 @@ {-# LANGUAGE GADTs #-} {-# LANGUAGE ViewPatterns #-} {-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TypeOperators #-} -- | Extensible configuration system for lambdabot -- -- TODO: there's notthing lambdabot-specific about this, it could be a useful standalone library.
src/Lambdabot/Config/Core.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TypeOperators #-} {-# OPTIONS_GHC -fno-warn-overlapping-patterns #-} module Lambdabot.Config.Core ( commandPrefixes@@ -13,7 +14,7 @@ , lbVersion , textWidth , uncaughtExceptionHandler- + , replaceRootLogger , lbRootLoggerPath , consoleLogHandle
src/Lambdabot/State.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-} -- | Support for the LB (LambdaBot) monad module Lambdabot.State ( -- ** Functions to access the module's state@@ -8,19 +9,19 @@ , readMS , writeMS , modifyMS- + -- ** Utility functions for modules that need state for each target. , GlobalPrivate -- (global) , mkGlobalPrivate- + , withPS , readPS , writePS- + , withGS , readGS , writeGS- + -- ** Handling global state , readGlobalState , writeGlobalState@@ -51,7 +52,7 @@ class MonadLB m => MonadLBState m where type LBState m- + -- | Update the module's private state. -- This is the preferred way of changing the state. The state will be locked -- until the body returns. The function is exception-safe, i.e. even if@@ -74,8 +75,8 @@ instance MonadLBState m => MonadLBState (Cmd m) where type LBState (Cmd m) = LBState m withMS f = do- x <- liftWith $ \run -> - withMS $ \st wr -> + x <- liftWith $ \run ->+ withMS $ \st wr -> run (f st (lift . wr)) restoreT (return x) @@ -177,7 +178,7 @@ writeGlobalState = do m <- asks theModule mName <- asks moduleName- + debugM ("saving state for module " ++ show mName) case moduleSerialize m of Nothing -> return ()