diff options
Diffstat (limited to 'UI/Zenity.hs')
| -rw-r--r-- | UI/Zenity.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/UI/Zenity.hs b/UI/Zenity.hs index 943be14..74810d9 100644 --- a/UI/Zenity.hs +++ b/UI/Zenity.hs @@ -15,6 +15,7 @@ import System.FilePath import System.Directory import System.Exit import qualified Data.ByteString.UTF8 as BU8 +import qualified Data.Text as T zenityUI :: UI zenityUI = UI @@ -122,12 +123,12 @@ myPromptKeyId title desc l = do , "--print-column", "ALL" , "--separator", "\BEL" , "--width", "500" - ] ++ concatMap (\(Name n, KeyId kid) -> [BU8.toString n, BU8.toString kid]) l + ] ++ concatMap (\(Name n, KeyId kid) -> [BU8.toString n, T.unpack kid]) l (ret, ok) <- waitZenity h if ok then do let (_n, _:kid) = break (== '\BEL') ret - return $ Just (KeyId (BU8.fromString kid)) + return $ Just (KeyId (T.pack kid)) else return Nothing myWithProgress :: Title -> Desc -> ((Percent -> IO ()) -> IO a) -> IO a |