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 /Command/View.hs | |
| parent | 7b15c2146cb3fcb60a95dd6df435b34bd97e39db (diff) | |
metadata: FIeld names are now case insensative.
Diffstat (limited to 'Command/View.hs')
| -rw-r--r-- | Command/View.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/View.hs b/Command/View.hs index e5182e852..932bc2d00 100644 --- a/Command/View.hs +++ b/Command/View.hs @@ -49,14 +49,14 @@ paramView = paramPair (paramRepeating "TAG") (paramRepeating "FIELD=VALUE") {- Parse field=value - - Note that the field may not be a legal metadata field name, - - but it's let through anywa (using MetaField rather than mkMetaField). + - but it's let through anyway. - This is useful when matching on directory names with spaces, - which are not legal MetaFields. -} parseViewParam :: String -> (MetaField, String) parseViewParam s = case separate (== '=') s of (tag, []) -> (tagMetaField, tag) - (field, wanted) -> (MetaField field, wanted) + (field, wanted) -> (mkMetaFieldUnchecked field, wanted) mkView :: [String] -> Annex View mkView params = do |