fix build with old version of optparse-applicative

This commit is contained in:
Joey Hess 2019-01-18 14:20:44 -04:00
parent 50a9a77148
commit 68198e803e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -54,11 +54,11 @@ optParser desc = MetaDataOptions
( long "set" <> short 's' <> metavar "FIELD[+-]=VALUE"
<> help "set or unset metadata value"
)
<|> (AddMeta tagMetaField . toMetaValue <$> strOption
<|> (AddMeta tagMetaField . toMetaValue . encodeBS <$> strOption
( long "tag" <> short 't' <> metavar "TAG"
<> help "set a tag"
))
<|> (DelMeta tagMetaField . Just . toMetaValue <$> strOption
<|> (DelMeta tagMetaField . Just . toMetaValue . encodeBS <$> strOption
( long "untag" <> short 'u' <> metavar "TAG"
<> help "remove a tag"
))