src: Lets: GetSetLens: Implement the examples

Signed-off-by: Sanchayan Maity <maitysanchayan@gmail.com>

src/Lets/GetSetLens.hs

@@ -466,8 +466,7 @@ addressL =
 getSuburb ::
   Person
   -> String
-getSuburb =
+getSuburb = get $ (compose suburbL addressL)
-  error "todo: getSuburb"
 
 -- |
 --
@@ -480,8 +479,7 @@ setStreet ::
   Person
   -> String
   -> Person
-setStreet =
+setStreet = set $ (compose streetL addressL)
-  error "todo: setStreet"
 
 -- |
 --
@@ -493,8 +491,8 @@ setStreet =
 getAgeAndCountry ::
   (Person, Locality)
   -> (Int, String)
-getAgeAndCountry =
+getAgeAndCountry (person, locality) = (get ageL person,
-  error "todo: getAgeAndCountry"
+                                       get countryL locality)
 
 -- |
 --
@@ -505,8 +503,9 @@ getAgeAndCountry =
 -- (Person 28 "Mary" (Address "83 Mary Ln" "Maryland" (Locality "Some Other City" "Western Mary" "Maristan")),Address "15 Fred St" "Fredville" (Locality "Mary Mary" "Western Mary" "Maristan"))
 setCityAndLocality ::
   (Person, Address) -> (String, Locality) -> (Person, Address)
-setCityAndLocality =
+setCityAndLocality (person, address) (city, locality) =
-  error "todo: setCityAndLocality"
+  (set (cityL |. localityL |. addressL) person city,
+   set localityL address locality)
   
 -- |
 --
@@ -518,8 +517,9 @@ setCityAndLocality =
 getSuburbOrCity ::
   Either Address Locality
   -> String
-getSuburbOrCity =
+getSuburbOrCity = \soc -> case soc of
-  error "todo: getSuburbOrCity"
+                            Left address -> get suburbL address
+                            Right locality -> get cityL locality
 
 -- |
 --
@@ -532,8 +532,9 @@ setStreetOrState ::
   Either Person Locality
   -> String
   -> Either Person Locality
-setStreetOrState =
+setStreetOrState = \sos -> \ipsos -> case sos of
-  error "todo: setStreetOrState"
+  Left person -> Left $ set (streetL |. addressL) person ipsos
+  Right locality -> Right $ set stateL locality ipsos
 
 -- |
 --
@@ -545,5 +546,4 @@ setStreetOrState =
 modifyCityUppercase ::
   Person
   -> Person
-modifyCityUppercase =
+modifyCityUppercase = (cityL |. localityL |. addressL) %~ map toUpper
-  error "todo: modifyCityUppercase"