diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-08-16 14:58:16 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-08-16 14:58:16 -0400 |
commit | fccf788a5ce9788d7c073321a3d19941bc1269b1 (patch) | |
tree | 76726eb3d3cd6fbb05721e5862e87511d1683b76 /Types | |
parent | c9c476ae7216b80932b80870a2cd06f9339306aa (diff) | |
download | keysafe-fccf788a5ce9788d7c073321a3d19941bc1269b1.tar.gz |
more command line interface improvements
Diffstat (limited to 'Types')
-rw-r--r-- | Types/UI.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Types/UI.hs b/Types/UI.hs index bba3d38..561aa65 100644 --- a/Types/UI.hs +++ b/Types/UI.hs @@ -9,8 +9,10 @@ import Types data UI = UI { isAvailable :: IO Bool + , showError :: Desc -> IO () , promptName :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name) , promptPassword :: Title -> Desc -> (Password -> Maybe Problem) -> IO (Maybe Password) + , promptKeyId :: Title -> Desc -> [(Name, KeyId)] -> IO (Maybe KeyId) , withProgress :: Title -> Desc -> ((Percent -> IO ()) -> IO ()) -> IO () } |