From 68198e803ece2680442952e8ac4bd1242cea19e3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 18 Jan 2019 14:20:44 -0400 Subject: [PATCH] fix build with old version of optparse-applicative --- Command/MetaData.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Command/MetaData.hs b/Command/MetaData.hs index a7bfb549c8..c279bcdb14 100644 --- a/Command/MetaData.hs +++ b/Command/MetaData.hs @@ -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" ))