metadata: FIeld names are now case insensative.
This commit is contained in:
parent
6272c10818
commit
06e9080f01
9 changed files with 33 additions and 32 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue