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

fix thinko for the second time

Browse source 
It's almost like this part of haskell syntax is not very good..
This commit is contained in:
Joey Hess 2018-04-09 13:10:44 -04:00
parent 197b1510fa
commit de552bd469
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Annex/MetaData/StandardFields.hs
View file

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