diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-15 00:26:33 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-15 00:26:41 -0400 |
commit | 4fc681f78b2e659d3db3da99fe7c640416fb3b43 (patch) | |
tree | 6d20d2864f98d4c3be1814d399bc669524ee6a42 /UI/Readline.hs | |
parent | b431fc0fb9d3b4617e4331a549ea02fda236223b (diff) | |
download | keysafe-4fc681f78b2e659d3db3da99fe7c640416fb3b43.tar.gz |
Change format of ~/.keysafe/backup.log
Allow deserializing SecretKeySource so we can later know what gpg keys are
backed up.
Converted KeyId to Text as JSON can't handle ByteString.
Diffstat (limited to 'UI/Readline.hs')
-rw-r--r-- | UI/Readline.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/UI/Readline.hs b/UI/Readline.hs index 0f852ea..7f19f67 100644 --- a/UI/Readline.hs +++ b/UI/Readline.hs @@ -17,6 +17,7 @@ import Data.Char import Text.Read import Control.Monad import qualified Data.ByteString.UTF8 as BU8 +import qualified Data.Text as T readlineUI :: UI readlineUI = UI @@ -129,7 +130,7 @@ myPromptKeyId title desc l = do putStrLn desc putStrLn "" forM_ nl $ \(n, ((Name name), (KeyId kid))) -> - putStrLn $ show n ++ ".\t" ++ BU8.toString name ++ " (keyid " ++ BU8.toString kid ++ ")" + putStrLn $ show n ++ ".\t" ++ BU8.toString name ++ " (keyid " ++ T.unpack kid ++ ")" prompt where nl = zip [1 :: Integer ..] l |