Fix getSuburb doctests

2015-07-28 21:32:38 +10:00 · 2015-07-28 21:32:38 +10:00 · 02c93d36d2
commit 02c93d36d2
parent 101f79a080
4 changed files with 8 additions and 8 deletions
--- a/src/Lets/GetSetLens.hs
+++ b/src/Lets/GetSetLens.hs
@ -453,10 +453,10 @@ addressL =

 -- |
 --
-- >>> get (suburbL |. addressL) fred
+-- >>> getSuburb fred
 -- "Fredville"
 --
-- >>> get (suburbL |. addressL) mary
+-- >>> getSuburb mary
 -- "Maryland"
 getSuburb ::
  Person
--- a/src/Lets/Lens.hs
+++ b/src/Lets/Lens.hs
@ -640,10 +640,10 @@ intAndL p (IntAnd n a) =

 -- |
 --
-- >>> get (suburbL |. addressL) fred
+-- >>> getSuburb fred
 -- "Fredville"
 --
-- >>> get (suburbL |. addressL) mary
+-- >>> getSuburb mary
 -- "Maryland"
 getSuburb ::
  Person
--- a/src/Lets/OpticPolyLens.hs
+++ b/src/Lets/OpticPolyLens.hs
@ -441,10 +441,10 @@ intAndL =

 -- |
 --
-- >>> get (suburbL |. addressL) fred
+-- >>> getSuburb fred
 -- "Fredville"
 --
-- >>> get (suburbL |. addressL) mary
+-- >>> getSuburb mary
 -- "Maryland"
 getSuburb ::
  Person
--- a/src/Lets/StoreLens.hs
+++ b/src/Lets/StoreLens.hs
@ -501,10 +501,10 @@ addressL =

 -- |
 --
-- >>> get (suburbL |. addressL) fred
+-- >>> getSuburb fred
 -- "Fredville"
 --
-- >>> get (suburbL |. addressL) mary
+-- >>> getSuburb mary
 -- "Maryland"
 getSuburb ::
  Person