diff options
| author | phadej <> | 2020-10-04 21:57:00 (GMT) |
|---|---|---|
| committer | hdiff <hdiff@hdiff.luite.com> | 2020-10-04 21:57:00 (GMT) |
| commit | 014ca64a024770d4184f2e3b4e5c46e958155166 (patch) | |
| tree | eb91588ca9424fd804fcd5275cb6d319b2c52dc1 | |
| parent | 984f0bd018f96511a05338c4f9b9bcd7548f7348 (diff) | |
| -rw-r--r-- | CHANGES.md | 4 | ||||
| -rw-r--r-- | src/Data/Strict/Optics.hs | 2 | ||||
| -rw-r--r-- | strict-optics.cabal | 2 |
3 files changed, 6 insertions, 2 deletions
@@ -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. |