diff --git a/day4/day4.hs b/day4/day4.hs
index a3a297c..83aedf0 100644
--- a/day4/day4.hs
+++ b/day4/day4.hs
@@ -94,4 +94,4 @@ hasAllRequiredFields = maybe False containsAllFields . fieldNames
           containsAllFields fields = all (`elem` fields) requiredFieldNames
           fieldNames = oneCompleteResult parseFieldNames
 
-main = runAoC (filter hasAllRequiredFields . map (intercalate " ") . splitOnEmptyLines) (length) (length . mapMaybe (oneCompleteResult parsePassport))
+main = runAoC (filter hasAllRequiredFields . map unwords . splitOnEmptyLines) length (length . mapMaybe (oneCompleteResult parsePassport))