diff options
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 |