EdisonCore 1.2.1.2 → 1.2.1.3

raw patch · 3 files changed

+4/−6 lines, 3 filessetup-changed

Files

EdisonCore.cabal +1/−1
Setup.hs +1/−1
src/Data/Edison/Assoc/StandardMap.hs +2/−4

EdisonCore.cabal view

@@ -1,7 +1,7 @@ Name:           EdisonCore Cabal-Version:  >= 1.2 Build-Type:     Simple-Version:        1.2.1.2+Version:        1.2.1.3 License:        OtherLicense License-File:   COPYRIGHT Author:         Chris Okasaki

Setup.hs view

@@ -1,3 +1,3 @@ #!/usr/bin/env runhaskell import Distribution.Simple-main = defaultMainWithHooks defaultUserHooks+main = defaultMain

src/Data/Edison/Assoc/StandardMap.hs view

@@ -198,10 +198,8 @@ size               = DM.size member             = DM.member count              = countUsingMember-lookup k m         = case lookupM k m of-                         Nothing -> error (moduleName ++ ".lookup: failed")-                         Just x  -> x-lookupM            = DM.lookup+lookup k m         = maybe (error (moduleName ++ ".lookup: failed")) id (DM.lookup k m)+lookupM k m        = maybe (fail (moduleName ++ ".lookupM: failed")) return (DM.lookup k m) lookupAll          = lookupAllUsingLookupM lookupWithDefault  = DM.findWithDefault lookupAndDelete    = lookupAndDeleteDefault