lens 4.3.2 → 4.3.3
raw patch · 3 files changed
+16/−2 lines, 3 filesdep ~distributivedep ~semigroupoids
Dependency ranges changed: distributive, semigroupoids
Files
- CHANGELOG.markdown +4/−0
- lens.cabal +1/−1
- src/Control/Lens/Internal/Instances.hs +11/−1
CHANGELOG.markdown view
@@ -1,3 +1,7 @@+4.3.3+-----+* `semigroupoids` 4.2 support+ 4.3.2 ----- * `contravariant` 1.0 support
lens.cabal view
@@ -1,6 +1,6 @@ name: lens category: Data, Lenses, Generics-version: 4.3.2+version: 4.3.3 license: BSD3 cabal-version: >= 1.8 license-file: LICENSE
src/Control/Lens/Internal/Instances.hs view
@@ -4,6 +4,10 @@ #ifndef MIN_VERSION_base #define MIN_VERSION_base(x,y,z) 1 #endif++#ifndef MIN_VERSION_semigroupoids+#define MIN_VERSION_semigroupoids(x,y,z) 1+#endif ----------------------------------------------------------------------------- -- | -- Module : Control.Lens.Internal.Instances@@ -14,14 +18,19 @@ -- Portability : non-portable -- -- This module includes orphan instances for @(,)@, 'Either' and 'Const' that--- should be supplied by base.+-- should be supplied by base. These have moved to @semigroupoids@ as of 4.2. ---------------------------------------------------------------------------- module Control.Lens.Internal.Instances () where +import Data.Traversable.Instances ()++#if !(MIN_VERSION_semigroupoids(0,4,2))+ import Control.Applicative import Data.Semigroup.Foldable import Data.Semigroup.Traversable + #if !(MIN_VERSION_base(4,7,0)) import Data.Monoid import Data.Foldable@@ -60,3 +69,4 @@ instance Traversable1 ((,) b) where traverse1 f (b, a) = (,) b <$> f a +#endif