Add Washington DC Location

Unit 1/Lesson 4/returningFunctions.hs

@@ -5,22 +5,25 @@ sfOffice name = if surname < "L"
     where surname = snd name
           nameText = fst name ++ " " ++ surname
 
-
 nyOffice :: ([Char], [Char]) -> [Char]
 nyOffice name = nameText ++ ": PO Box 789 - New York, NY, 10013"
     where nameText = fst name ++ " " ++ snd name
 
-
 renoOffice :: (a, [Char]) -> [Char]
 renoOffice name = nameText ++ " - PO Box 456 - Reno, NV 89523"
     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]
 getLocation location = case location of
   "ny" -> nyOffice
   "sf" -> sfOffice
   "reno" -> renoOffice
+  "wdc" -> wdcOFfice
   _ -> (\name -> fst name ++ " " ++ snd name)