aboutsummaryrefslogtreecommitdiff
path: root/Annex/View.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-25 18:45:09 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-25 18:45:09 -0400
commit425b6fca0046d6fb8ddd8a8a4f2bd77fef52c25d (patch)
treeeec260145fb8df2a8160e6dc3b248751878e381d /Annex/View.hs
parent7b15c2146cb3fcb60a95dd6df435b34bd97e39db (diff)
metadata: FIeld names are now case insensative.
Diffstat (limited to 'Annex/View.hs')
-rw-r--r--Annex/View.hs2
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)