+2 -2

src/Lets/GetSetLens.hs

reviewed

··· 453 453 454 454 -- | 455 455 -- 456 456 - -- >>> get (suburbL |. addressL) fred 456 456 + -- >>> getSuburb fred 457 457 -- "Fredville" 458 458 -- 459 459 - -- >>> get (suburbL |. addressL) mary 459 459 + -- >>> getSuburb mary 460 460 -- "Maryland" 461 461 getSuburb :: 462 462 Person

+2 -2

src/Lets/Lens.hs

reviewed

··· 640 640 641 641 -- | 642 642 -- 643 643 - -- >>> get (suburbL |. addressL) fred 643 643 + -- >>> getSuburb fred 644 644 -- "Fredville" 645 645 -- 646 646 - -- >>> get (suburbL |. addressL) mary 646 646 + -- >>> getSuburb mary 647 647 -- "Maryland" 648 648 getSuburb :: 649 649 Person

+2 -2

src/Lets/OpticPolyLens.hs

reviewed

··· 441 441 442 442 -- | 443 443 -- 444 444 - -- >>> get (suburbL |. addressL) fred 444 444 + -- >>> getSuburb fred 445 445 -- "Fredville" 446 446 -- 447 447 - -- >>> get (suburbL |. addressL) mary 447 447 + -- >>> getSuburb mary 448 448 -- "Maryland" 449 449 getSuburb :: 450 450 Person

+2 -2

src/Lets/StoreLens.hs

reviewed

··· 501 501 502 502 -- | 503 503 -- 504 504 - -- >>> get (suburbL |. addressL) fred 504 504 + -- >>> getSuburb fred 505 505 -- "Fredville" 506 506 -- 507 507 - -- >>> get (suburbL |. addressL) mary 507 507 + -- >>> getSuburb mary 508 508 -- "Maryland" 509 509 getSuburb :: 510 510 Person