Updated examples.

dsorokin · Nov 4, 2014 · 604a618 · 604a618
1 parent 313f7eb
commit 604a618
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/examples/LinearArray.hs b/examples/LinearArray.hs
@@ -59,7 +59,7 @@ experiment =
     experimentDescription = "Model Linear Array as described in " ++
                             "the examples included in Berkeley-Madonna." }
 
-generators :: WebPageRendering r => [WebPageGenerator r]
+generators :: [WebPageGenerator a]
 generators =
   [outputView defaultExperimentSpecsView,
    outputView $ defaultTableView {
@@ -86,4 +86,4 @@ generators =
         resultByName "m" <>
         resultByName "c" } ]
 
-main = runExperiment experiment generators WebPageRenderer (model 51)
+main = runExperiment experiment generators (WebPageRenderer ()) (model 51)
diff --git a/examples/MachRep3.hs b/examples/MachRep3.hs
@@ -43,7 +43,7 @@ experiment =
     experimentRunCount = 3,
     experimentDescription = description }
 
-generators :: WebPageRendering r => [WebPageGenerator r]
+generators :: [WebPageGenerator a]
 generators =
   [outputView defaultExperimentSpecsView,
    outputView $ defaultLastValueView {
@@ -115,4 +115,4 @@ model =
        [resultSource "x" "The proportion of up time" prop,
         resultSource "t" "Simulation time" time]
 
-main = runExperiment experiment generators WebPageRenderer model
+main = runExperiment experiment generators (WebPageRenderer ()) model