declarative 0.3.4 → 0.4.0

raw patch · 2 files changed

+7/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

- Numeric.MCMC: mcmc :: Show (t a) => Int -> t a -> Transition IO (Chain (t a) b) -> Target (t a) -> Gen RealWorld -> IO ()

+ Numeric.MCMC: mcmc :: (MonadIO m, PrimMonad m, Show (t a)) => Int -> t a -> Transition m (Chain (t a) b) -> Target (t a) -> Gen (PrimState m) -> m ()

Files

declarative.cabal +1/−1
lib/Numeric/MCMC.hs +6/−5

declarative.cabal view

@@ -1,5 +1,5 @@ name:                declarative-version:             0.3.4+version:             0.4.0 synopsis:            DIY Markov Chains. homepage:            http://github.com/jtobin/declarative license:             MIT

lib/Numeric/MCMC.hs view

@@ -87,6 +87,7 @@   , RealWorld   ) where +import Control.Monad.IO.Class (MonadIO, liftIO) import Control.Monad.Primitive (PrimMonad, PrimState, RealWorld) import Control.Monad.Trans.State.Strict (execStateT) import Data.Sampling.Types@@ -152,17 +153,17 @@ -- 1.4541485365128892e-2,-0.4859905564050404 -- 0.22487398491619448,-0.29769783186855125 mcmc-  :: Show (t a)+  :: (MonadIO m, PrimMonad m, Show (t a))   => Int   -> t a-  -> Transition IO (Chain (t a) b)+  -> Transition m (Chain (t a) b)   -> Target (t a)-  -> Gen RealWorld-  -> IO ()+  -> Gen (PrimState m)+  -> m () mcmc n chainPosition transition chainTarget gen = runEffect $         chain transition Chain {..} gen     >-> Pipes.take n-    >-> Pipes.mapM_ print+    >-> Pipes.mapM_ (liftIO . print)   where     chainScore    = lTarget chainTarget chainPosition     chainTunables = Nothing