use DelMeta to unset tag

No behavior change, just simplification.
This commit is contained in:
Joey Hess 2016-02-29 12:04:48 -04:00
parent 4763004632
commit 98fcc23e4f
Failed to extract signature

View file

@ -46,7 +46,7 @@ optParser desc = MetaDataOptions
( long "tag" <> short 't' <> metavar "TAG"
<> help "set a tag"
))
<|> (AddMeta tagMetaField . mkMetaValue (CurrentlySet False) <$> strOption
<|> (DelMeta tagMetaField . toMetaValue <$> strOption
( long "untag" <> short 'u' <> metavar "TAG"
<> help "remove a tag"
))