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/View.hs | |
| parent | 7b15c2146cb3fcb60a95dd6df435b34bd97e39db (diff) | |
metadata: FIeld names are now case insensative.
Diffstat (limited to 'Annex/View.hs')
| -rw-r--r-- | Annex/View.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |