acid-state-0.14.1: benchmarks/loading/Benchmark/Model.hs

module Benchmark.Model where

import Benchmark.Prelude hiding (insert)
import qualified Data.Acid as Acid



type Model = [[[Int]]]

insert :: [[Int]] -> Acid.Update Model ()
insert = modify . (:)

Acid.makeAcidic ''Model ['insert]