experimenter 0.1.0.10 → 0.1.0.12

raw patch · 3 files changed

+14/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +3/−0
• experimenter.cabal +2/−2
• src/Experimenter/Run.hs +9/−1

@@ -1,5 +1,8 @@ # Changelog for experimenter +Release 0.1.0.12 n 22.03.2021:+    - Bug fix when decreasing number of evaluations+ Release 0.1.0.10 on 15.03.2021:     - Tried IORef instead of MVar due to deadlocks. Using MVar. 

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 6ee709c122976d31201211f9328205c21118d5b57800b507d99c7cab43066d74+-- hash: 74babbc2a0932968985e7a2b1535fb195c4303a3485ec96ba414c071efdc6f9e  name:           experimenter-version:        0.1.0.10+version:        0.1.0.12 synopsis:       Perform scientific experiments stored in a DB, and generate reports. description:    Please see the README on GitHub at <https://github.com/schnecki/experimenter#readme> category:       Experiment

@@ -552,13 +552,21 @@         res <- runReplicationResult rands e expId (expNr, repetNr) initSt initInpSt repRess         transactionSave         return res-  repRes <- getRepRes exps repsDone >>= mapM (runRepl exps)+  repRes <- getRepRes exps repsDone >>= deleteTruncatedRepRes exps >>= mapM (runRepl exps)   let updated = any fst repRes       res = map snd repRes   return (prepUpdated || updated, set preparationResults prepRes $ set evaluationResults res expRes)   where     expInitSt = exps ^. experimentsInitialState     expResId = expRes ^. experimentResultKey+    deleteTruncatedRepRes :: (MonadIO m) => Experiments a -> [ReplicationResult a] -> DB m [ReplicationResult a]+    deleteTruncatedRepRes exps' xs+      | length xs > len = do+        mapM_ deleteReplicationResult (drop len xs)+        return (take len xs)+      | otherwise = return xs+      where+        len = exps' ^. experimentsSetup . expsSetupEvaluationReplications     getRepRes :: (MonadIO m) => Experiments a -> [ReplicationResult a] -> DB m [ReplicationResult a]     getRepRes exps' repsDone = do       $(logInfo) $ "Number of loaded replications: " <> tshow (length repsDone)