diff options
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -12,6 +12,7 @@ import Tunables import qualified Gpg import Options.Applicative import qualified Data.ByteString.UTF8 as BU8 +import qualified Data.Text as T import System.Directory import Network.Wai.Handler.Warp (Port) @@ -79,7 +80,7 @@ parse = CmdLine ( long "test" <> help "Run test suite." ) - gpgswitch = GpgKey . KeyId . BU8.fromString <$> strOption + gpgswitch = GpgKey . KeyId . T.pack <$> strOption ( long "gpgkeyid" <> metavar "KEYID" <> help "Specify keyid of gpg key to back up or restore. (When this option is used to back up a key, it must also be used at restore time.)" |