Merge branch 'master' of github.com:cspollard/hunfold

cspollard · Apr 1, 2020 · 811bb41 · 811bb41
2 parents 32b4b91 + afcc815
commit 811bb41
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/MarkovChain.hs b/src/MarkovChain.hs
@@ -84,7 +84,7 @@ hamiltonianStep steps eps u du start@(q0s, pe0) = do
 
 
   if isNaN pef || isNaN kef
-    then return start
+    then hamiltonianStep steps eps u du start
     else do
       step <- bernoulli . min 1 . exp $ (ke p0s + pe0) - (kef + pef)
 

diff --git a/src/Model.hs b/src/Model.hs
@@ -122,7 +122,7 @@ data ModelParam a =
     { _mpInitialValue :: a
     , _mpPrior        :: ParamPrior a
     , _mpVariation    :: ModelVar a
-    } deriving (Generic, Functor)
+    } deriving (Generic, Functor, Show)
 
 makeLenses ''ModelParam