diff options
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 |