From ecc967a33fbd4724f5782f6d6b858b3df103b134 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 12 Aug 2016 12:10:41 -0400 Subject: prompt for name --- UI/Zenity.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'UI/Zenity.hs') 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 -- cgit v1.2.3