diff --git a/Unit 1/Lesson 4/AllNames.hs b/Unit 1/Lesson 4/AllNames.hs
index 181fdcc..ebd2552 100644
--- a/Unit 1/Lesson 4/AllNames.hs	
+++ b/Unit 1/Lesson 4/AllNames.hs	
@@ -3,6 +3,7 @@ module AllNames where
 names :: [([Char], [Char])]
 names = [("Callum", "Kilmartin"),
          ("Goudham","Suresh"),
+         ("Matt", "Hardman"),
          ("Theo", "Hardman"),
          ("Luca","Valentini"),
          ("Cormac", "Muir")]
\ No newline at end of file