diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-16 16:08:13 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-16 16:08:13 -0400 |
| commit | 9473fee1bb0f9f549de41eec9f7b7d141f2ebfd3 (patch) | |
| tree | f742035ff7bd35a5ff7b7a05abcba2b78ff3c922 /Types | |
| parent | fccf788a5ce9788d7c073321a3d19941bc1269b1 (diff) | |
| download | keysafe-9473fee1bb0f9f549de41eec9f7b7d141f2ebfd3.tar.gz | |
key selection working
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/UI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Types/UI.hs b/Types/UI.hs index 561aa65..67b4c5f 100644 --- a/Types/UI.hs +++ b/Types/UI.hs @@ -10,8 +10,9 @@ import Types data UI = UI { isAvailable :: IO Bool , showError :: Desc -> IO () + , promptQuestion :: Title -> Desc -> IO Bool , promptName :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name) - , promptPassword :: Title -> Desc -> (Password -> Maybe Problem) -> IO (Maybe Password) + , promptPassword :: Bool -> Title -> Desc -> IO (Maybe Password) , promptKeyId :: Title -> Desc -> [(Name, KeyId)] -> IO (Maybe KeyId) , withProgress :: Title -> Desc -> ((Percent -> IO ()) -> IO ()) -> IO () } |