uglymemo 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

• Data/MemoUgly.hs +1/−1
• uglymemo.cabal +3/−1

@@ -13,7 +13,7 @@     let f' x = do             m <- readMVar v             case M.lookup x m of-                Nothing -> do let { r = f x }; m <- takeMVar v; putMVar v (M.insert x r m); return r+                Nothing -> do let { r = f x }; modifyMVar_ v (return . M.insert x r); return r                 Just r  -> return r     return f' 

@@ -1,7 +1,9 @@ Name:                uglymemo-Version:             0.1.0.0+Version:             0.1.0.1 Synopsis:            A simple (but internally ugly) memoization function. Description:         A simple (but internally ugly) memoization function.+                     .+                     * New in 0.1.0.1: Make it exception safe. License:             PublicDomain Author:              Lennart Augustsson Maintainer:          lennart@augustsson.net