Add Washington DC Location

Unit 1/Lesson 4/returningFunctions.hs

@@ -2,18 +2,20 @@ sfOffice :: ([Char], [Char]) -> [Char]
 sfOffice name = if surname < "L"
                 then nameText ++ " - PO Box 1234 - San Francisco, CA, 94111"
                 else nameText ++ " - PO Box 1010 - San Francisco, CA, 94109"
-  where surname = snd name
+    where surname = snd name
-        nameText = fst name ++ " " ++ surname
+          nameText = fst name ++ " " ++ surname
-
 
 nyOffice :: ([Char], [Char]) -> [Char]
 nyOffice name = nameText ++ ": PO Box 789 - New York, NY, 10013"
-  where nameText = fst name ++ " " ++ snd name
+    where nameText = fst name ++ " " ++ snd name
-
 
 renoOffice :: (a, [Char]) -> [Char]
 renoOffice name = nameText ++ " - PO Box 456 - Reno, NV 89523"
-  where nameText = snd name
+    where nameText = snd name
+
+wdcOFfice :: ([Char], [Char]) -> [Char]
+wdcOFfice name = nameText ++ " - PO BOX 831 - Washington, DC, 12130"
+    where nameText = fst name ++ " " ++ snd name ++ ", Esq."
 
 
 getLocation :: [Char] -> ([Char], [Char]) -> [Char]
@@ -21,6 +23,7 @@ getLocation location = case location of
   "ny" -> nyOffice
   "sf" -> sfOffice
   "reno" -> renoOffice
+  "wdc" -> wdcOFfice
   _ -> (\name -> fst name ++ " " ++ snd name)