summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorphadej <>2020-10-04 21:57:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2020-10-04 21:57:00 (GMT)
commit014ca64a024770d4184f2e3b4e5c46e958155166 (patch)
treeeb91588ca9424fd804fcd5275cb6d319b2c52dc1
parent984f0bd018f96511a05338c4f9b9bcd7548f7348 (diff)
version 0.4.0.1HEAD0.4.0.1master
-rw-r--r--CHANGES.md4
-rw-r--r--src/Data/Strict/Optics.hs2
-rw-r--r--strict-optics.cabal2
3 files changed, 6 insertions, 2 deletions
diff --git a/CHANGES.md b/CHANGES.md
index b2bf2ab..fc85265 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,3 +1,7 @@
+## 0.4.0.1
+
+- Fix Each These instance
+
## 0.4
- Initial release, splitted of `strict-base-types`
diff --git a/src/Data/Strict/Optics.hs b/src/Data/Strict/Optics.hs
index b9ffd58..c15a628 100644
--- a/src/Data/Strict/Optics.hs
+++ b/src/Data/Strict/Optics.hs
@@ -103,7 +103,7 @@ instance Swapped These where
instance (a ~ a', b ~ b') => Each (Either () ()) (These a a') (These b b') a b where
each = itraversalVL aux where
aux f (This a) = This <$> f (Left ()) a
- aux f (That b) = This <$> f (Right ()) b
+ aux f (That b) = That <$> f (Right ()) b
aux f (These a b) = These <$> f (Left ()) a <*> f (Right ()) b
-- | A 'Control.Lens.Traversal' of the first half of a 'These', suitable for use with "Control.Lens".
diff --git a/strict-optics.cabal b/strict-optics.cabal
index ddc28ab..0df19bc 100644
--- a/strict-optics.cabal
+++ b/strict-optics.cabal
@@ -1,5 +1,5 @@
name: strict-optics
-version: 0.4
+version: 0.4.0.1
synopsis: Optics for types in strict package
category: Data, Optics
description: Optics for types in strict package.