optics-extra 0.4.2 → 0.4.2.1
raw patch · 3 files changed
+6/−3 lines, 3 filesdep ~basedep ~bytestringdep ~containersnew-uploader
Dependency ranges changed: base, bytestring, containers, hashable, optics-core, text, vector
Files
- CHANGELOG.md +3/−0
- optics-extra.cabal +1/−1
- src/Optics/Zoom.hs +2/−2
CHANGELOG.md view
@@ -1,3 +1,6 @@+# optics-extra-0.4.2.1 (2022-05-20)+* Fix for previous release when used with `mtl-2.3` and `transformers-0.5`.+ # optics-extra-0.4.2 (2022-05-19) * Allow `transformers-0.6` and `mtl-2.3`
optics-extra.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.2 name: optics-extra-version: 0.4.2+version: 0.4.2.1 license: BSD-3-Clause license-file: LICENSE build-type: Simple
src/Optics/Zoom.hs view
@@ -22,7 +22,7 @@ import qualified Control.Monad.Trans.Writer.Lazy as L import qualified Control.Monad.Trans.Writer.Strict as S -#if !MIN_VERSION_transformers(0,6,0)+#if !MIN_VERSION_transformers(0,6,0) && !MIN_VERSION_mtl(2,3,0) import Control.Monad.Trans.Error (Error, ErrorT (..)) import Control.Monad.Trans.List (ListT (..)) #endif@@ -395,7 +395,7 @@ magnifyMany o = ExceptT #. fmap getErr . magnifyMany o . fmap Err .# runExceptT {-# INLINE magnifyMany #-} -#if !MIN_VERSION_transformers(0,6,0)+#if !MIN_VERSION_transformers(0,6,0) && !MIN_VERSION_mtl(2,3,0) instance (Error e, Magnify m n b a) => Magnify (ErrorT e m) (ErrorT e n) b a where magnify o = ErrorT #. magnify o .# runErrorT magnifyMaybe o =