diff --git a/basics/extras/optics.md b/basics/extras/optics.md index 363595f..a1d3b72 100644 --- a/basics/extras/optics.md +++ b/basics/extras/optics.md @@ -455,10 +455,6 @@ exception, and we use `_NoSuchThing :: Prism' IOErrorType ()` to determine wheth 3. Create prisms for the `RelationshipStatus` structure from chapter 1: -4. Create a function using lenses and prisms that takes a `UserProfile` and returns a - `Maybe UserProfile` where it effectively answers the question whether a user is married to - someone who has a userprofile on our page. - ```haskell import Data.Time (Day) import Prelude @@ -483,6 +479,10 @@ data UserProfile = UserProfile deriving (Eq, Show) ``` +4. Create a function using lenses and prisms that takes a `UserProfile` and returns a + `Maybe UserProfile` where it effectively answers the question whether a user is married to + someone who has a userprofile on our page. + ## Traversals and Folds Traversals allow us to modify multiple values in a structure at once, given some pattern that