sets 0.0.1.1 → 0.0.2

raw patch · 2 files changed

+7/−1 lines, 2 files

Files

sets.cabal +1/−1
src/Data/Set/Class.hs +6/−0

sets.cabal view

@@ -1,5 +1,5 @@ Name:                   sets-Version:                0.0.1.1+Version:                0.0.2 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                MIT

src/Data/Set/Class.hs view

@@ -83,6 +83,12 @@ instance HasIntersection s => Commutative (Intersection s) where   commute = intersection +class HasXUnion s where+  xunion :: s -> s -> s++instance (HasUnion s, HasIntersection s, HasDifference s) => HasXUnion s where+  xunion x y = union x y `difference` intersection x y+ class HasComplement s where   complement :: s -> s