experimenter 0.1.0.4 → 0.1.0.6
raw patch · 3 files changed
+11/−8 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Experimenter.Eval.Type: evalExperiment :: forall a_a2Q8b. Lens' (ExperimentEval a_a2Q8b) (Experiment a_a2Q8b)
+ Experimenter.Eval.Type: evalExperiment :: forall a_a2Q8H. Lens' (ExperimentEval a_a2Q8H) (Experiment a_a2Q8H)
- Experimenter.Eval.Type: evalExperimentNumber :: forall a_a2Q8b. Lens' (ExperimentEval a_a2Q8b) Int
+ Experimenter.Eval.Type: evalExperimentNumber :: forall a_a2Q8H. Lens' (ExperimentEval a_a2Q8H) Int
- Experimenter.Eval.Type: evalExperimentResults :: forall a_a2Q8b. Lens' (ExperimentEval a_a2Q8b) [Availability IO (EvalResults a_a2Q8b)]
+ Experimenter.Eval.Type: evalExperimentResults :: forall a_a2Q8H. Lens' (ExperimentEval a_a2Q8H) [Availability IO (EvalResults a_a2Q8H)]
- Experimenter.Eval.Type: evalType :: forall a_a2OPj. Lens' (EvalResults a_a2OPj) (StatsDef a_a2OPj)
+ Experimenter.Eval.Type: evalType :: forall a_a2OPP. Lens' (EvalResults a_a2OPP) (StatsDef a_a2OPP)
- Experimenter.Eval.Type: evalUnit :: forall a_a2OPj. Lens' (EvalResults a_a2OPj) Unit
+ Experimenter.Eval.Type: evalUnit :: forall a_a2OPP. Lens' (EvalResults a_a2OPP) Unit
- Experimenter.Eval.Type: evalValue :: forall a_a2OPj. Traversal' (EvalResults a_a2OPj) Double
+ Experimenter.Eval.Type: evalValue :: forall a_a2OPP. Traversal' (EvalResults a_a2OPP) Double
- Experimenter.Eval.Type: evalValues :: forall a_a2OPj. Traversal' (EvalResults a_a2OPj) [EvalResults a_a2OPj]
+ Experimenter.Eval.Type: evalValues :: forall a_a2OPP. Traversal' (EvalResults a_a2OPP) [EvalResults a_a2OPP]
- Experimenter.Eval.Type: evalVariableName :: forall a_a2OPj. Traversal' (EvalResults a_a2OPj) ByteString
+ Experimenter.Eval.Type: evalVariableName :: forall a_a2OPP. Traversal' (EvalResults a_a2OPP) ByteString
- Experimenter.Eval.Type: evalX :: forall a_a2OPj. Traversal' (EvalResults a_a2OPj) (Either Int Double)
+ Experimenter.Eval.Type: evalX :: forall a_a2OPP. Traversal' (EvalResults a_a2OPP) (Either Int Double)
- Experimenter.Eval.Type: evalY :: forall a_a2OPj. Traversal' (EvalResults a_a2OPj) Double
+ Experimenter.Eval.Type: evalY :: forall a_a2OPP. Traversal' (EvalResults a_a2OPP) Double
- Experimenter.Eval.Type: evalsExperiments :: forall a_a2QlS. Lens' (Evals a_a2QlS) (Experiments a_a2QlS)
+ Experimenter.Eval.Type: evalsExperiments :: forall a_a2Qmo. Lens' (Evals a_a2Qmo) (Experiments a_a2Qmo)
- Experimenter.Eval.Type: evalsResults :: forall a_a2QlS. Lens' (Evals a_a2QlS) [ExperimentEval a_a2QlS]
+ Experimenter.Eval.Type: evalsResults :: forall a_a2Qmo. Lens' (Evals a_a2Qmo) [ExperimentEval a_a2Qmo]
- Experimenter.Input: inputValue :: forall a_a2K42 a_a2K5a. Lens (Input a_a2K42) (Input a_a2K5a) (InputValue a_a2K42) (InputValue a_a2K5a)
+ Experimenter.Input: inputValue :: forall a_a2K4E a_a2K5M. Lens (Input a_a2K4E) (Input a_a2K5M) (InputValue a_a2K4E) (InputValue a_a2K5M)
- Experimenter.Input: inputValuePeriod :: forall a_a2K42. Lens' (Input a_a2K42) Int
+ Experimenter.Input: inputValuePeriod :: forall a_a2K4E. Lens' (Input a_a2K4E) Int
- Experimenter.Parameter.Type: parameterSettingExperimentDesign :: forall a_a2CdZ a_a2DfP. Lens (ParameterSetting a_a2CdZ) (ParameterSetting a_a2DfP) ExperimentDesign ExperimentDesign
+ Experimenter.Parameter.Type: parameterSettingExperimentDesign :: forall a_a2Cf6 a_a2Dh8. Lens (ParameterSetting a_a2Cf6) (ParameterSetting a_a2Dh8) ExperimentDesign ExperimentDesign
- Experimenter.Parameter.Type: parameterSettingName :: forall a_a2CdZ a_a2DfQ. Lens (ParameterSetting a_a2CdZ) (ParameterSetting a_a2DfQ) Text Text
+ Experimenter.Parameter.Type: parameterSettingName :: forall a_a2Cf6 a_a2Dh9. Lens (ParameterSetting a_a2Cf6) (ParameterSetting a_a2Dh9) Text Text
- Experimenter.Parameter.Type: parameterSettingSkipPreparationPhase :: forall a_a2CdZ a_a2DfR. Lens (ParameterSetting a_a2CdZ) (ParameterSetting a_a2DfR) Bool Bool
+ Experimenter.Parameter.Type: parameterSettingSkipPreparationPhase :: forall a_a2Cf6 a_a2Dha. Lens (ParameterSetting a_a2Cf6) (ParameterSetting a_a2Dha) Bool Bool
- Experimenter.Parameter.Type: parameterSettingValue :: forall a_a2CdZ a_a2DfS. Lens (ParameterSetting a_a2CdZ) (ParameterSetting a_a2DfS) ByteString ByteString
+ Experimenter.Parameter.Type: parameterSettingValue :: forall a_a2Cf6 a_a2Dhb. Lens (ParameterSetting a_a2Cf6) (ParameterSetting a_a2Dhb) ByteString ByteString
- Experimenter.Result.Type: endInputState :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (Maybe (InputState a_a2Kfp))
+ Experimenter.Result.Type: endInputState :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (Maybe (InputState a_a2Kg1))
- Experimenter.Result.Type: endRandGen :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (Maybe GenIO)
+ Experimenter.Result.Type: endRandGen :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (Maybe GenIO)
- Experimenter.Result.Type: endState :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (Availability (ExpM a_a2Kfp) (Maybe a_a2Kfp))
+ Experimenter.Result.Type: endState :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (Availability (ExpM a_a2Kg1) (Maybe a_a2Kg1))
- Experimenter.Result.Type: endTime :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (Maybe UTCTime)
+ Experimenter.Result.Type: endTime :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (Maybe UTCTime)
- Experimenter.Result.Type: evalResults :: forall a_a2Knq. Lens' (ReplicationResult a_a2Knq) (Maybe (ResultData a_a2Knq))
+ Experimenter.Result.Type: evalResults :: forall a_a2Ko2. Lens' (ReplicationResult a_a2Ko2) (Maybe (ResultData a_a2Ko2))
- Experimenter.Result.Type: evaluationResults :: forall a_a2Kvz. Lens' (ExperimentResult a_a2Kvz) [ReplicationResult a_a2Kvz]
+ Experimenter.Result.Type: evaluationResults :: forall a_a2Kwb. Lens' (ExperimentResult a_a2Kwb) [ReplicationResult a_a2Kwb]
- Experimenter.Result.Type: experimentEndTime :: forall a_a2Kz7. Lens' (Experiment a_a2Kz7) (Maybe UTCTime)
+ Experimenter.Result.Type: experimentEndTime :: forall a_a2KzJ. Lens' (Experiment a_a2KzJ) (Maybe UTCTime)
- Experimenter.Result.Type: experimentKey :: forall a_a2Kz7. Lens' (Experiment a_a2Kz7) (Key Exp)
+ Experimenter.Result.Type: experimentKey :: forall a_a2KzJ. Lens' (Experiment a_a2KzJ) (Key Exp)
- Experimenter.Result.Type: experimentNumber :: forall a_a2Kz7. Lens' (Experiment a_a2Kz7) Int
+ Experimenter.Result.Type: experimentNumber :: forall a_a2KzJ. Lens' (Experiment a_a2KzJ) Int
- Experimenter.Result.Type: experimentResultKey :: forall a_a2Kvz. Lens' (ExperimentResult a_a2Kvz) (Key ExpResult)
+ Experimenter.Result.Type: experimentResultKey :: forall a_a2Kwb. Lens' (ExperimentResult a_a2Kwb) (Key ExpResult)
- Experimenter.Result.Type: experimentResults :: forall a_a2Kz7. Lens' (Experiment a_a2Kz7) [ExperimentResult a_a2Kz7]
+ Experimenter.Result.Type: experimentResults :: forall a_a2KzJ. Lens' (Experiment a_a2KzJ) [ExperimentResult a_a2KzJ]
- Experimenter.Result.Type: experimentStartTime :: forall a_a2Kz7. Lens' (Experiment a_a2Kz7) UTCTime
+ Experimenter.Result.Type: experimentStartTime :: forall a_a2KzJ. Lens' (Experiment a_a2KzJ) UTCTime
- Experimenter.Result.Type: experiments :: forall a_a2KDj. Lens' (Experiments a_a2KDj) [Experiment a_a2KDj]
+ Experimenter.Result.Type: experiments :: forall a_a2KDV. Lens' (Experiments a_a2KDV) [Experiment a_a2KDV]
- Experimenter.Result.Type: experimentsEndTime :: forall a_a2KDj. Lens' (Experiments a_a2KDj) (Maybe UTCTime)
+ Experimenter.Result.Type: experimentsEndTime :: forall a_a2KDV. Lens' (Experiments a_a2KDV) (Maybe UTCTime)
- Experimenter.Result.Type: experimentsInfoParameters :: forall a_a2KDj. Lens' (Experiments a_a2KDj) [ExperimentInfoParameter]
+ Experimenter.Result.Type: experimentsInfoParameters :: forall a_a2KDV. Lens' (Experiments a_a2KDV) [ExperimentInfoParameter]
- Experimenter.Result.Type: experimentsInitialInputState :: forall a_a2KDj. Lens' (Experiments a_a2KDj) (InputState a_a2KDj)
+ Experimenter.Result.Type: experimentsInitialInputState :: forall a_a2KDV. Lens' (Experiments a_a2KDV) (InputState a_a2KDV)
- Experimenter.Result.Type: experimentsInitialState :: forall a_a2KDj. Lens' (Experiments a_a2KDj) a_a2KDj
+ Experimenter.Result.Type: experimentsInitialState :: forall a_a2KDV. Lens' (Experiments a_a2KDV) a_a2KDV
- Experimenter.Result.Type: experimentsKey :: forall a_a2KDj. Lens' (Experiments a_a2KDj) (Key Exps)
+ Experimenter.Result.Type: experimentsKey :: forall a_a2KDV. Lens' (Experiments a_a2KDV) (Key Exps)
- Experimenter.Result.Type: experimentsName :: forall a_a2KDj. Lens' (Experiments a_a2KDj) Text
+ Experimenter.Result.Type: experimentsName :: forall a_a2KDV. Lens' (Experiments a_a2KDV) Text
- Experimenter.Result.Type: experimentsParameters :: forall a_a2KDj. Lens' (Experiments a_a2KDj) [ParameterSetup a_a2KDj]
+ Experimenter.Result.Type: experimentsParameters :: forall a_a2KDV. Lens' (Experiments a_a2KDV) [ParameterSetup a_a2KDV]
- Experimenter.Result.Type: experimentsSetup :: forall a_a2KDj. Lens' (Experiments a_a2KDj) ExpsSetup
+ Experimenter.Result.Type: experimentsSetup :: forall a_a2KDV. Lens' (Experiments a_a2KDV) ExpsSetup
- Experimenter.Result.Type: experimentsStartTime :: forall a_a2KDj. Lens' (Experiments a_a2KDj) UTCTime
+ Experimenter.Result.Type: experimentsStartTime :: forall a_a2KDV. Lens' (Experiments a_a2KDV) UTCTime
- Experimenter.Result.Type: inputValues :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (AvailabilityList (ExpM a_a2Kfp) (Input a_a2Kfp))
+ Experimenter.Result.Type: inputValues :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (AvailabilityList (ExpM a_a2Kg1) (Input a_a2Kg1))
- Experimenter.Result.Type: parameterSetup :: forall a_a2Kz7. Lens' (Experiment a_a2Kz7) [ParameterSetting a_a2Kz7]
+ Experimenter.Result.Type: parameterSetup :: forall a_a2KzJ. Lens' (Experiment a_a2KzJ) [ParameterSetting a_a2KzJ]
- Experimenter.Result.Type: preparationResults :: forall a_a2Kvz. Lens' (ExperimentResult a_a2Kvz) (Maybe (ResultData a_a2Kvz))
+ Experimenter.Result.Type: preparationResults :: forall a_a2Kwb. Lens' (ExperimentResult a_a2Kwb) (Maybe (ResultData a_a2Kwb))
- Experimenter.Result.Type: repetitionNumber :: forall a_a2Kvz. Lens' (ExperimentResult a_a2Kvz) Int
+ Experimenter.Result.Type: repetitionNumber :: forall a_a2Kwb. Lens' (ExperimentResult a_a2Kwb) Int
- Experimenter.Result.Type: replicationNumber :: forall a_a2Knq. Lens' (ReplicationResult a_a2Knq) Int
+ Experimenter.Result.Type: replicationNumber :: forall a_a2Ko2. Lens' (ReplicationResult a_a2Ko2) Int
- Experimenter.Result.Type: replicationResultKey :: forall a_a2Knq. Lens' (ReplicationResult a_a2Knq) (Key RepResult)
+ Experimenter.Result.Type: replicationResultKey :: forall a_a2Ko2. Lens' (ReplicationResult a_a2Ko2) (Key RepResult)
- Experimenter.Result.Type: resultDataKey :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) ResultDataKey
+ Experimenter.Result.Type: resultDataKey :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) ResultDataKey
- Experimenter.Result.Type: results :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (AvailabilityList (ExpM a_a2Kfp) Measure)
+ Experimenter.Result.Type: results :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (AvailabilityList (ExpM a_a2Kg1) Measure)
- Experimenter.Result.Type: startInputState :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (InputState a_a2Kfp)
+ Experimenter.Result.Type: startInputState :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (InputState a_a2Kg1)
- Experimenter.Result.Type: startRandGen :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) GenIO
+ Experimenter.Result.Type: startRandGen :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) GenIO
- Experimenter.Result.Type: startState :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) (Availability (ExpM a_a2Kfp) a_a2Kfp)
+ Experimenter.Result.Type: startState :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) (Availability (ExpM a_a2Kg1) a_a2Kg1)
- Experimenter.Result.Type: startTime :: forall a_a2Kfp. Lens' (ResultData a_a2Kfp) UTCTime
+ Experimenter.Result.Type: startTime :: forall a_a2Kg1. Lens' (ResultData a_a2Kg1) UTCTime
- Experimenter.Result.Type: warmUpResults :: forall a_a2Knq. Lens' (ReplicationResult a_a2Knq) (Maybe (ResultData a_a2Knq))
+ Experimenter.Result.Type: warmUpResults :: forall a_a2Ko2. Lens' (ReplicationResult a_a2Ko2) (Maybe (ResultData a_a2Ko2))
Files
- ChangeLog.md +6/−3
- experimenter.cabal +3/−3
- src/Experimenter/Run.hs +2/−2
ChangeLog.md view
@@ -1,7 +1,10 @@ # Changelog for experimenter +Release 0.1.0.6 on 15.03.2021:+ - Using withMVar instead of modifyMVar_+ Release 0.1.0.3 on 31.12.2020:- - Using username for LaTeX output- - Parameter tables are rendered using the tabularX to ensure the textwidth is not exceeded- - Nicer output for running the evaluations+ - Using username for LaTeX output+ - Parameter tables are rendered using the tabularX to ensure the textwidth is not exceeded+ - Nicer output for running the evaluations ## Unreleased changes
experimenter.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 2dfd476c8b0f4da0340c035c0501e8087c0808ea9fba7aaec32f5527c7114c37+-- hash: 2b9823aaa76e5b2c3460c6368bb8bacca57bd553f4e26daa4181b268f1fcf1bb name: experimenter-version: 0.1.0.4+version: 0.1.0.6 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@@ -15,7 +15,7 @@ bug-reports: https://github.com/schnecki/experimenter/issues author: Manuel Schneckenreither maintainer: manuel.schneckenreither@uibk.ac.at-copyright: 2020 Manuel Schneckenreither+copyright: 2021 Manuel Schneckenreither license: BSD3 license-file: LICENSE build-type: Simple
src/Experimenter/Run.hs view
@@ -754,10 +754,10 @@ {-# NOINLINE splitSizeMVar #-} increaseSplitSize :: IO ()-increaseSplitSize = liftIO $ modifyMVar_ splitSizeMVar (return . min 128000 . (*2))+increaseSplitSize = liftIO $ void $ withMVar splitSizeMVar (return . min 128000 . (*2)) decreaseSplitSize :: IO ()-decreaseSplitSize = liftIO $ modifyMVar_ splitSizeMVar (return . max 500 . (`div` 2))+decreaseSplitSize = liftIO $ void $ withMVar splitSizeMVar (return . max 500 . (`div` 2)) getSplitSize :: IO Int getSplitSize = liftIO $ fromMaybe 5000 <$> tryReadMVar splitSizeMVar