data-lens 2.0.1 → 2.0.2

raw patch · 2 files changed

+7/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Data/Lens/Common.hs +6/−6
• data-lens.cabal +1/−1

@@ -11,7 +11,7 @@   , (^$),  (^$!)   -- getter -- :: Lens a b -> a -> b   , (^.),  (^!)    -- getter -- :: a -> Lens a b -> b   , (^=),  (^!=)   -- setter -- :: Lens a b -> b -> (a -> a)-  , (^%=), (^!%=)  -- modify -- :: Lens a b -> (b -> b) -> (a -> a) +  , (^%=), (^!%=)  -- modify -- :: Lens a b -> (b -> b) -> (a -> a)   , (^%%=)         -- modify -- :: Functor f => Lens a b -> (b -> f b) -> a -> f a   -- * Pseudo-imperatives   , (^+=), (^!+=) -- addition@@ -53,7 +53,7 @@ instance Category Lens where   id = Lens $ StoreT (pure id)   Lens f . Lens g = Lens $ \a -> case g a of-    StoreT wba b -> case f b of +    StoreT wba b -> case f b of       StoreT wcb c -> StoreT ((.) <$> wba <*> wcb) c  -- * Lens construction@@ -144,10 +144,10 @@  setLens :: Ord k => k -> Lens (Set k) Bool setLens k = Lens $ \m -> store (\mv ->-    if mv then Set.delete k m else Set.insert k m+    if mv then Set.insert k m else Set.delete k m   ) (Set.member k m)-    + intSetLens :: Int -> Lens IntSet Bool-intSetLens k = Lens $ \m -> store (\mv -> -    if mv then IntSet.delete k m else IntSet.insert k m+intSetLens k = Lens $ \m -> store (\mv ->+    if mv then IntSet.insert k m else IntSet.delete k m   ) (IntSet.member k m)

@@ -1,6 +1,6 @@ name:          data-lens category:      Control, Comonads-version:       2.0.1+version:       2.0.2 license:       BSD3 cabal-version: >= 1.6 license-file:  LICENSE