lub 0.1.2 → 0.1.3
raw patch · 2 files changed
+4/−2 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- lub.cabal +2/−2
- src/Data/Laxer.hs +2/−0
lub.cabal view
@@ -1,5 +1,5 @@ Name: lub-Version: 0.1.2+Version: 0.1.3 Cabal-Version: >= 1.2 Synopsis: information operators: least upper bound (lub) and greatest lower bound (glb) Category: Concurrency, Data, Other@@ -20,7 +20,7 @@ Maintainer: conal@conal.net Homepage: http://haskell.org/haskellwiki/lub Package-Url: http://code.haskell.org/~conal/code/lub-Copyright: (c) 2008 by Conal Elliott+Copyright: (c) 2008,2009,2010 by Conal Elliott License: BSD3 Stability: experimental build-type: Simple
src/Data/Laxer.hs view
@@ -18,10 +18,12 @@ import Data.Lub import Data.Glb +-- | Laxer if-then-else, due to Luke Palmer condL :: (HasLub a, HasGlb a) => a -> a -> Bool -> a condL a b = const (a `glb` b) `lub` (\ c -> if c then a else b) +-- | Laxer variant of 'either' eitherL :: (HasLub c, HasGlb c) => (a -> c) -> (b -> c) -> (Either a b -> c) eitherL f g = const (f undefined `glb` g undefined) `lub` either f g