From 78c71badb458f3709f4689641dbb9efd53d962cf Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 17 Aug 2016 15:03:33 -0400
Subject: progress display for storing

---
 UI/Zenity.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'UI/Zenity.hs')

diff --git a/UI/Zenity.hs b/UI/Zenity.hs
index 228b11a..a419b62 100644
--- a/UI/Zenity.hs
+++ b/UI/Zenity.hs
@@ -23,6 +23,7 @@ zenityUI = UI
 		loc <- filterM (\p -> doesFileExist (p </> "zenity")) ps
 		return (not (null loc))
 	, showError = myShowError
+	, showInfo = myShowInfo
 	, promptQuestion = myPromptQuestion
 	, promptName = myPromptName
 	, promptPassword = myPromptPassword
@@ -42,6 +43,18 @@ myShowError desc = bracket go cleanup (\_ -> return ())
 		_ <- waitZenity h
 		return ()
 
+myShowInfo :: Title -> Desc -> IO ()
+myShowInfo title desc = bracket go cleanup (\_ -> return ())
+  where
+	go = runZenity
+		[ "--info"
+		, "--title", title
+		, "--text", desc
+		]
+	cleanup h = do
+		_ <- waitZenity h
+		return ()
+
 myPromptQuestion :: Title -> Desc -> Question -> IO Bool
 myPromptQuestion title desc question = do
 	h <- runZenity
-- 
cgit v1.2.3