mwc-probability-transition 0.3.0.2 → 0.3.0.3
raw patch · 2 files changed
+5/−11 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
mwc-probability-transition.cabal view
@@ -1,5 +1,5 @@ name: mwc-probability-transition-version: 0.3.0.2+version: 0.3.0.3 synopsis: A Markov stochastic transition operator with logging description: .
src/System/Random/MWC/Probability/Transition.hs view
@@ -13,10 +13,6 @@ , stepConditional -- * Helper functions , withSeverity- -- -- * Re-exported from `logging-effect`- -- , Handler- -- , WithSeverity(..), Severity(..)- -- -- , withFDHandler, defaultBatchingOptions ) where import Control.Monad@@ -25,8 +21,7 @@ import qualified Control.Monad.State as S import Control.Monad.Trans.Class (MonadTrans(..), lift)-import Control.Monad.Trans.State.Strict (StateT(..), evalStateT, execStateT, runStateT)--- import Control.Monad.Log (MonadLog(..), Handler, WithSeverity(..), Severity(..), LoggingT(..), runLoggingT, withFDHandler, defaultBatchingOptions, logMessage)+import Control.Monad.Trans.State.Strict (StateT(..), runStateT) import qualified Control.Monad.Log as L import Data.Char@@ -89,8 +84,8 @@ -> s -> Gen (PrimState m) -> m [a] -- ^ Outputs-evalTransition logf (Transition fm) n s0 g =- L.runLoggingT (evalStateT (replicateM n (fm g)) s0) logf+evalTransition logf tfm n s0 g = fst <$> runTransition logf tfm n s0 g+ -- | Run a 'Transition' for a number of steps, while logging each iteration. --@@ -102,8 +97,7 @@ -> s -> Gen (PrimState m) -> m s -- ^ Final state-execTransition logf (Transition fm) n s0 g =- L.runLoggingT (execStateT (replicateM n (fm g)) s0) logf+execTransition logf tfm n s0 g = snd <$> runTransition logf tfm n s0 g -- | Perform one 'Transition' and check output and updated state against the current state, producing an Either with the result of the comparison.