summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorryanglscott <>2020-02-13 19:25:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2020-02-13 19:25:00 (GMT)
commit6807e1eebb58f29f03f77f72c8daf2281f694be0 (patch)
tree56f8a8893d4f66fddf730102991acf0e91800e4d
parent529b61f6da7606aba9f01f71b6e93f916d5f334a (diff)
version 4.19.14.19.1
-rwxr-xr-xCHANGELOG.markdown5
-rw-r--r--lens.cabal2
-rw-r--r--src/Language/Haskell/TH/Lens.hs1
3 files changed, 7 insertions, 1 deletions
diff --git a/CHANGELOG.markdown b/CHANGELOG.markdown
index ef877c0..d41786c 100755
--- a/CHANGELOG.markdown
+++ b/CHANGELOG.markdown
@@ -1,3 +1,8 @@
+4.19.1 [2020.02.13]
+-------------------
+* Fix a bug introduced in 4.19 where using `_TupE` to `preview` a value would
+ always fail.
+
4.19 [2020.02.03]
-----------------
* Support building with GHC 8.10.
diff --git a/lens.cabal b/lens.cabal
index 29eb70b..fb83a52 100644
--- a/lens.cabal
+++ b/lens.cabal
@@ -1,6 +1,6 @@
name: lens
category: Data, Lenses, Generics
-version: 4.19
+version: 4.19.1
license: BSD2
cabal-version: 1.18
license-file: LICENSE
diff --git a/src/Language/Haskell/TH/Lens.hs b/src/Language/Haskell/TH/Lens.hs
index f50bf4f..652b880 100644
--- a/src/Language/Haskell/TH/Lens.hs
+++ b/src/Language/Haskell/TH/Lens.hs
@@ -2128,6 +2128,7 @@ _TupE
= prism' reviewer remitter
where
reviewer = TupE
+ remitter (TupE x) = Just x
remitter _ = Nothing
-- |