From 02c93d36d211ad112e6ce1c245fc3e1bdf064926 Mon Sep 17 00:00:00 2001 From: Nick Partridge Date: Tue, 28 Jul 2015 21:32:38 +1000 Subject: [PATCH] Fix getSuburb doctests --- src/Lets/GetSetLens.hs | 4 ++-- src/Lets/Lens.hs | 4 ++-- src/Lets/OpticPolyLens.hs | 4 ++-- src/Lets/StoreLens.hs | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) 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