diff --git a/Annex/MetaData/StandardFields.hs b/Annex/MetaData/StandardFields.hs
index b2a3f34423..492a2aa119 100644
--- a/Annex/MetaData/StandardFields.hs
+++ b/Annex/MetaData/StandardFields.hs
@@ -33,10 +33,11 @@ dayMetaField :: MetaField
 dayMetaField = mkMetaFieldUnchecked "day"
 
 isDateMetaField :: MetaField -> Bool
-isDateMetaField yearMetaField = True
-isDateMetaField monthMetaField = True
-isDateMetaField datMetaField = True
-isDateMetaField _ = False
+isDateMetaField f = case f of
+	yearMetaField -> True
+	monthMetaField -> True
+	dayMetaField -> True
+	_ -> False
 
 lastChangedField :: MetaField
 lastChangedField = mkMetaFieldUnchecked lastchanged