diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-25 18:45:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-25 18:45:09 -0400 |
| commit | 425b6fca0046d6fb8ddd8a8a4f2bd77fef52c25d (patch) | |
| tree | eec260145fb8df2a8160e6dc3b248751878e381d /Annex | |
| parent | 7b15c2146cb3fcb60a95dd6df435b34bd97e39db (diff) | |
metadata: FIeld names are now case insensative.
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/MetaData.hs | 6 | ||||
| -rw-r--r-- | Annex/View.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Annex/MetaData.hs b/Annex/MetaData.hs index b7850a868..68aef33f1 100644 --- a/Annex/MetaData.hs +++ b/Annex/MetaData.hs @@ -20,13 +20,13 @@ import Data.Time.Clock import Data.Time.Clock.POSIX tagMetaField :: MetaField -tagMetaField = MetaField "tag" +tagMetaField = mkMetaFieldUnchecked "tag" yearMetaField :: MetaField -yearMetaField = MetaField "year" +yearMetaField = mkMetaFieldUnchecked "year" monthMetaField :: MetaField -monthMetaField = MetaField "month" +monthMetaField = mkMetaFieldUnchecked "month" {- Adds metadata for a file that has just been ingested into the - annex, but has not yet been committed to git. diff --git a/Annex/View.hs b/Annex/View.hs index 9d1a763e2..254cd7274 100644 --- a/Annex/View.hs +++ b/Annex/View.hs @@ -249,7 +249,7 @@ getDirMetaData :: FilePath -> MetaData getDirMetaData d = MetaData $ M.fromList $ zip fields values where dirs = splitDirectories d - fields = map (MetaField . addTrailingPathSeparator . joinPath) + fields = map (mkMetaFieldUnchecked . addTrailingPathSeparator . joinPath) (inits dirs) values = map (S.singleton . toMetaValue . fromMaybe "" . headMaybe) (tails dirs) |