mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix pattern match

Browse source
This commit is contained in:
Joey Hess 2018-04-06 23:11:20 -04:00
parent bd45129c27
commit 61aa56465b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Annex/MetaData/StandardFields.hs
View file

@ -33,10 +33,11 @@ dayMetaField :: MetaField
dayMetaField = mkMetaFieldUnchecked "day" dayMetaField = mkMetaFieldUnchecked "day"
isDateMetaField :: MetaField -> Bool isDateMetaField :: MetaField -> Bool
isDateMetaField yearMetaField = True isDateMetaField f = case f of
isDateMetaField monthMetaField = True yearMetaField -> True
isDateMetaField datMetaField = True monthMetaField -> True
isDateMetaField _ = False dayMetaField -> True
_ -> False
lastChangedField :: MetaField lastChangedField :: MetaField
lastChangedField = mkMetaFieldUnchecked lastchanged lastChangedField = mkMetaFieldUnchecked lastchanged