diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-12 12:10:41 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-12 12:10:41 -0400 |
| commit | ecc967a33fbd4724f5782f6d6b858b3df103b134 (patch) | |
| tree | d7fc098e08f558170db2c6979dfd2f300e9b559d /UI/Zenity.hs | |
| parent | 3ee306d3d4bda52268f07df874070b65d171694e (diff) | |
| download | keysafe-ecc967a33fbd4724f5782f6d6b858b3df103b134.tar.gz | |
prompt for name
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 3b8b028..f61bb44 100644 --- a/UI/Zenity.hs +++ b/UI/Zenity.hs @@ -27,14 +27,15 @@ zenityUI = UI , withProgress = progress } -name :: Title -> Desc -> (Name -> Maybe Problem) -> IO (Maybe Name) -name title desc checkproblem = go "" +name :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name) +name title desc (Name suggested) checkproblem = go "" where go extradesc = do h <- runZenity [ "--entry" , "--title", title , "--text", desc ++ "\n" ++ extradesc + , "--entry-text", BU8.toString suggested ] (ret, ok) <- waitZenity h if ok |