diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-02-29 13:00:46 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-29 13:00:46 -0400 |
| commit | 25b87aadd8bdca484f1fb073c38e169ee2bc7503 (patch) | |
| tree | a34a85fd37f979ac64f617bef01a1957a0a2b622 /Annex/MetaData.hs | |
| parent | 5b23c5d3baa15ca1200b2ee349b924c1d8395665 (diff) | |
metadata: Added -r to remove all current values of a field.
Diffstat (limited to 'Annex/MetaData.hs')
| -rw-r--r-- | Annex/MetaData.hs | 2 |
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 |