diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-16 16:59:25 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-16 16:59:25 -0400 |
| commit | c2eba63d11c748aeebdd3a4a3a5b015ac5e2f2c9 (patch) | |
| tree | f75ee5e067fee2b36fdc75ad470fd9cc2e11268e /UI/Zenity.hs | |
| parent | 9473fee1bb0f9f549de41eec9f7b7d141f2ebfd3 (diff) | |
| download | keysafe-c2eba63d11c748aeebdd3a4a3a5b015ac5e2f2c9.tar.gz | |
add cost estimates
Diffstat (limited to 'UI/Zenity.hs')
| -rw-r--r-- | UI/Zenity.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/UI/Zenity.hs b/UI/Zenity.hs index 3c3f313..b74631f 100644 --- a/UI/Zenity.hs +++ b/UI/Zenity.hs @@ -42,12 +42,12 @@ myShowError desc = bracket go cleanup (\_ -> return ()) _ <- waitZenity h return () -myPromptQuestion :: Title -> Desc -> IO Bool -myPromptQuestion title desc = do +myPromptQuestion :: Title -> Desc -> Question -> IO Bool +myPromptQuestion title desc question = do h <- runZenity [ "--question" , "--title", title - , "--text", desc + , "--text", desc ++ "\n" ++ question ] (_, ok) <- waitZenity h return ok |