summaryrefslogtreecommitdiff
path: root/Annex
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-02-29 13:00:46 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-02-29 13:00:46 -0400
commit25b87aadd8bdca484f1fb073c38e169ee2bc7503 (patch)
treea34a85fd37f979ac64f617bef01a1957a0a2b622 /Annex
parent5b23c5d3baa15ca1200b2ee349b924c1d8395665 (diff)
metadata: Added -r to remove all current values of a field.
Diffstat (limited to 'Annex')
-rw-r--r--Annex/MetaData.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/MetaData.hs b/Annex/MetaData.hs
index cc00baca5..d8d8177c4 100644
--- a/Annex/MetaData.hs
+++ b/Annex/MetaData.hs
@@ -61,7 +61,7 @@ dateMetaData mtime old = MetaData $ M.fromList $ filter isnew
parseModMeta :: String -> Either String ModMeta
parseModMeta p = case lastMaybe f of
Just '+' -> AddMeta <$> mkMetaField f' <*> v
- Just '-' -> DelMeta <$> mkMetaField f' <*> v
+ Just '-' -> DelMeta <$> mkMetaField f' <*> (Just <$> v)
Just '?' -> MaybeSetMeta <$> mkMetaField f' <*> v
_ -> SetMeta <$> mkMetaField f <*> v
where