aivika-experiment 5.2 → 5.3
raw patch · 2 files changed
+16/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Simulation.Aivika.Experiment.Base.TableView: [tableSeriesGridSize] :: TableView -> Maybe Int
- Simulation.Aivika.Experiment.Base.TableView: TableView :: String -> String -> String -> String -> ExperimentFilePath -> String -> ShowS -> Event Bool -> ResultTransform -> ResultTransform -> TableView
+ Simulation.Aivika.Experiment.Base.TableView: TableView :: String -> String -> String -> String -> ExperimentFilePath -> String -> ShowS -> Event Bool -> ResultTransform -> ResultTransform -> Maybe Int -> TableView
Files
Simulation/Aivika/Experiment/Base/TableView.hs view
@@ -97,8 +97,10 @@ -- when we can save data in the table. tableTransform :: ResultTransform, -- ^ The transform applied to the results before receiving series.- tableSeries :: ResultTransform + tableSeries :: ResultTransform, -- ^ It defines the series to save in the CSV file(s).+ tableSeriesGridSize :: Maybe Int+ -- ^ The size of the grid, where the series data are saved. } -- | The default table view. @@ -113,7 +115,8 @@ tableFormatter = id, tablePredicate = return True, tableTransform = expandResults,- tableSeries = id }+ tableSeries = id,+ tableSeriesGridSize = Nothing } instance ExperimentView TableView (WebPageRenderer a) where @@ -178,12 +181,20 @@ tableExperiment st exts = resultsToStringValues rs signals = experimentPredefinedSignals expdata- signal = pureResultSignal signals $- resultSignal rs separator = tableSeparator view formatter = tableFormatter view predicate = tablePredicate view i <- liftParameter simulationIndex+ signal <-+ case tableSeriesGridSize view of+ Just m ->+ liftEvent $+ fmap (mapSignal $ const ()) $+ newSignalInTimeGrid m+ Nothing ->+ return $+ pureResultSignal signals $+ resultSignal rs -- create a new file let f = fromJust $ M.lookup (i - 1) (tableMap st) h <- liftIO $ openFile f WriteMode
aivika-experiment.cabal view
@@ -1,5 +1,5 @@ name: aivika-experiment-version: 5.2+version: 5.3 synopsis: Simulation experiments for the Aivika library description: This package allows defining simulation experiments based on the aivika [1]