toplevel lastchanged field

1 files changed, 13 insertions, 4 deletions

diff --git a/Annex/MetaData/StandardFields.hs b/Annex/MetaData/StandardFields.hs
index 00b810593..d41fb1506 100644
--- a/Annex/MetaData/StandardFields.hs
+++ b/Annex/MetaData/StandardFields.hs
@@ -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"