data-clist 0.0.7.1 → 0.0.7.2

raw patch · 2 files changed

+2/−10 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• data-clist.cabal +1/−1
• src/Data/CircularList.hs +1/−9

@@ -5,7 +5,7 @@              Given that the ring terminiology clashes with certain              mathematical branches, we're using the term CList or              CircularList instead.-Version: 0.0.7.1+Version: 0.0.7.2 License: BSD3 License-File: LICENSE Author: John Van Enk <vanenkj@gmail.com>

@@ -326,21 +326,13 @@    return (fromList xs,t)  instance (Eq a) => Eq (CList a) where-  a == b = any (identical a) . toList $ allRotations b+  a == b = any ((toList a ==) . toList) . toList $ allRotations b  instance (NFData a) => NFData (CList a) where   rnf Empty         = ()   rnf (CList l f r) = rnf f                       `seq` rnf l                       `seq` rnf r---- |Determine if two 'CList's are structurally identical.-identical :: (Eq a) => CList a -> CList a -> Bool-identical Empty Empty = True-identical (CList ls1 f1 rs1) (CList ls2 f2 rs2) = f1 == f2-                                                  && ls1 == ls2-                                                  && rs1 == rs2-identical _ _ = False  instance Arbitrary a => Arbitrary (CList a) where     arbitrary = frequency [(1, return Empty), (10, arbCList)]