Fix optics tutorial sample code (2) (#98)

Rename `_address` to `_workAddress` so the Prism sample code works.
This commit is contained in:
Clindbergh 2022-03-13 18:21:50 +01:00 committed by GitHub
parent 34fa63792d
commit 17bd6bcb11
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -65,7 +65,7 @@ data Address = Address {
data Person = Person {
_name :: Text,
_homeAddress :: Address,
_address :: Maybe Address,
_workAddress :: Maybe Address,
_friends :: [Person]
} deriving (Eq, Show)
```