runmemo 1.0.0.0 → 1.0.0.1

raw patch · 2 files changed

+6/−3 lines, 2 filesdep ~data-memocombinatorsdep ~time

Dependency ranges changed: data-memocombinators, time

Files

• runmemo.cabal +3/−3
• test/test-race.hs +3/−0

@@ -1,5 +1,5 @@ name:                runmemo-version:             1.0.0.0+version:             1.0.0.1 synopsis:            A simple memoization helper library  description:@@ -81,7 +81,7 @@   type:            exitcode-stdio-1.0   hs-source-dirs:  test, src   main-is:         test-race.hs-  build-depends:   data-memocombinators == 0.4.*, base == 4.*, time == 1.4.*+  build-depends:   data-memocombinators >= 0.4, base == 4.*, time >= 1.4  source-repository head   type:     git@@ -90,4 +90,4 @@ source-repository this   type:     git   location: git@github.com:DanBurton/runmemo.git-  tag:      runmemo-1.0.0.0+  tag:      runmemo-1.0.0.1

@@ -4,6 +4,7 @@ import Data.RunMemo import System.Exit import Data.Time.Clock+import Text.Printf  fib :: Memoizable (Integer -> Integer) fib self = go@@ -22,8 +23,10 @@ main = do   putStrLn "Evaluating with Memo.integral"   mtime <- time $ runMemo Memo.integral fib 30 `seq` putStrLn "Evaluated"+  printf "Memo.integral took %s\n" (show mtime)   putStrLn "Evaluating with noMemo"   ntime <- time $ runMemo noMemo fib 30 `seq` putStrLn "Evaluated"+  printf "noMemo        took %s\n" (show ntime)   if mtime < ntime     then exitSuccess     else exitFailure