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

---
 Types/UI.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Types')

diff --git a/Types/UI.hs b/Types/UI.hs
index 7508293..77a3095 100644
--- a/Types/UI.hs
+++ b/Types/UI.hs
@@ -12,6 +12,7 @@ import Types
 data UI = UI
 	{ isAvailable :: IO Bool
 	, showError :: Desc -> IO ()
+	, showInfo :: Title -> Desc -> IO ()
 	, promptQuestion :: Title -> Desc -> Question -> IO Bool
 	, promptName :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name)
 	, promptPassword :: Bool -> Title -> Desc -> IO (Maybe Password)
-- 
cgit v1.2.3