diff --git a/src/Lets/GetSetLens.hs b/src/Lets/GetSetLens.hs index 2221d10..481ac31 100644 --- 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 diff --git a/src/Lets/Lens.hs b/src/Lets/Lens.hs index c492de6..7e21c99 100644 --- 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 diff --git a/src/Lets/OpticPolyLens.hs b/src/Lets/OpticPolyLens.hs index e17c8c1..066ca16 100644 --- 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 diff --git a/src/Lets/StoreLens.hs b/src/Lets/StoreLens.hs index 1352a8a..349775c 100644 --- 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