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

toplevel lastchanged field

Browse source
This commit is contained in:
Joey Hess 2014-03-19 19:10:35 -04:00
parent 3d48de183d
commit f64c2d6138
4 changed files with 29 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Annex/MetaData/StandardFields.hs
View file

@ -10,6 +10,7 @@ module Annex.MetaData.StandardFields (
yearMetaField,
monthMetaField,
lastChangedField,
mkLastChangedField,
isLastChangedField
) where
@ -26,13 +27,21 @@ yearMetaField = mkMetaFieldUnchecked "year"
monthMetaField :: MetaField
monthMetaField = mkMetaFieldUnchecked "month"
lastChangedField :: MetaField -> MetaField
lastChangedField f = mkMetaFieldUnchecked (fromMetaField f ++ lastchanged)
lastChangedField :: MetaField
lastChangedField = mkMetaFieldUnchecked lastchanged
mkLastChangedField :: MetaField -> MetaField
mkLastChangedField f = mkMetaFieldUnchecked (fromMetaField f ++ lastchangedSuffix)
isLastChangedField :: MetaField -> Bool
isLastChangedField f = lastchanged `isSuffixOf` s && s /= lastchanged
isLastChangedField f
| f == lastChangedField = True
| otherwise = lastchanged `isSuffixOf` s && s /= lastchangedSuffix
where
s = fromMetaField f
lastchanged :: String
lastchanged = "-lastchanged"
lastchanged = "lastchanged"
lastchangedSuffix :: String
lastchangedSuffix = "-lastchanged"