diff options
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) |