package irmin-bench
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
Irmin benchmarking suite
Install
dune-project
Dependency
Authors
Maintainers
Sources
irmin-3.6.1.tbz
sha256=11fc2570bdbfd48478c89113fc801084a84a9a2c12d9bf8c64e05ce64ae19bd7
sha512=2171699ca24dec5c9c908a2676b272e034c14eb17f7052a794535e52af0be40be68a689e59c0a640ee244b11703320483f4d0c261542e6242ba23a8f1272b9b0
doc/irmin-bench.traces/Irmin_traces/Trace_stat_summary_utils/Parallel_folders/index.html
Module Trace_stat_summary_utils.Parallel_foldersSource
See Trace_stat_summary for an explanation and an example.
Heavily inspired by the "repr" library.
Type parameters:
'resis the output offinalise.'fis the full contructor that creates a'res.'vis the output offolder.finalise, one parameter of'f.'restis'for'resor somewhere in between.'accis the accumulator of one folder.'rowis what needs to be fed to allfolder.accumulate.
Typical use case:
let pf =
open_ (fun res_a res_b -> my_constructor res_a res_b)
|+ folder my_acc_a my_accumulate_a my_finalise_a
|+ folder my_acc_b my_accumulate_b my_finalise_b
|> seal
in
let res = my_row_sequence |> Seq.fold_left accumulate pf |> finalise inSection 1/3 - Individual folders
Create one folder to be passed to an open parallel folder using |+.
Section 2/3 - Open parallel folder
Source
val app :
('res, 'row, 'f, 'v -> 'rest) open_t ->
('row, 'acc, 'v) folder ->
('res, 'row, 'f, 'rest) open_tAdd a folder to an open parallel folder.
Source
val (|+) :
('res, 'row, 'f, 'v -> 'rest) open_t ->
('row, 'acc, 'v) folder ->
('res, 'row, 'f, 'rest) open_tAlias for app.
Section 3/3 - Closed parallel folder
Stop building a parallel folder.
Gotcha: It may seal a partially applied f.
Forward a row to all registered functional folders.
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>