diff options
Diffstat (limited to 'UI/Zenity.hs')
| -rw-r--r-- | UI/Zenity.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/UI/Zenity.hs b/UI/Zenity.hs index a419b62..943be14 100644 --- a/UI/Zenity.hs +++ b/UI/Zenity.hs @@ -65,15 +65,17 @@ myPromptQuestion title desc question = do (_, ok) <- waitZenity h return ok -myPromptName :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name) -myPromptName title desc (Name suggested) checkproblem = go "" +myPromptName :: Title -> Desc -> Maybe Name -> (Name -> Maybe Problem) -> IO (Maybe Name) +myPromptName title desc suggested checkproblem = go "" where go extradesc = do h <- runZenity [ "--entry" , "--title", title , "--text", desc ++ "\n" ++ extradesc - , "--entry-text", BU8.toString suggested + , "--entry-text", case suggested of + Nothing -> "" + Just (Name b) -> BU8.toString b ] (ret, ok) <- waitZenity h if ok |