1 files changed, 2 insertions, 1 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index a41a759..686fcb5 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -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.)"