Commits

Bryan O'Sullivan committed 12fcfb5

Fix up some doco breakage.

Comments (0)

Files changed (1)

Criterion/Main.hs

 -- > fib n = fib (n-1) + fib (n-2)
 -- >
 -- > main = defaultMain [
--- >        bgroup "fib" [ bench "fib 10" $ B fib 10
--- >                     , bench "fib 35" $ B fib 35
--- >                     , bench "fib 37" $ B fib 37
+-- >        bgroup "fib" [ bench "10" $ whnf fib 10
+-- >                     , bench "35" $ whnf fib 35
+-- >                     , bench "37" $ whnf fib 37
 -- >                     ]
 -- >                    ]
 defaultMain :: [Benchmark] -> IO ()
 -- >            }
 -- > 
 -- > main = defaultMainWith myConfig (return ()) [
--- >          bench "fib 30" $ B fib 30
+-- >          bench "fib 30" $ whnf fib 30
 -- >        ]
 --
 -- If you save the above example as @\"Fib.hs\"@, you should be able