fixed the wording

day4.hs

@@ -13,8 +13,8 @@ main = do
       ansA = length $ filter (== True) $ map solveA ls
       ansB = length $ filter (== True) $ map solveB ls
    in do 
-     putStrLn $ "day3a: " ++ (show ansA)
-     putStrLn $ "day3b: " ++ (show ansB)
+     putStrLn $ "day4a: " ++ (show ansA)
+     putStrLn $ "day4b: " ++ (show ansB)
 
 rtags :: [String]
 rtags = ["byr", "iyr", "eyr", "hgt", "hcl", "ecl", "pid"]

day5.hs

@@ -10,8 +10,8 @@ main = do
       ansA = maximum ls
       ansB = findGap $ sort ls
    in do 
-     putStrLn $ "day3a: " ++ (show ansA)
-     putStrLn $ "day3b: " ++ (show ansB)
+     putStrLn $ "day5a: " ++ (show ansA)
+     putStrLn $ "day5b: " ++ (show ansB)
 
 validate :: String -> Bool
 validate s =