diff options
Diffstat (limited to 'Types/UI.hs')
-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 67b4c5f..0a0c789 100644 --- a/Types/UI.hs +++ b/Types/UI.hs @@ -10,7 +10,7 @@ import Types data UI = UI { isAvailable :: IO Bool , showError :: Desc -> IO () - , promptQuestion :: Title -> Desc -> IO Bool + , promptQuestion :: Title -> Desc -> Question -> IO Bool , promptName :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name) , promptPassword :: Bool -> Title -> Desc -> IO (Maybe Password) , promptKeyId :: Title -> Desc -> [(Name, KeyId)] -> IO (Maybe KeyId) @@ -21,3 +21,4 @@ type Title = String type Desc = String type Percent = Int type Problem = String +type Question = String |