This commit is contained in:
Joey Hess 2019-09-24 14:34:15 -04:00
parent de564df8b3
commit 45e5cc63b5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -30,7 +30,7 @@ getUrlCredential = runCredential "fill" . urlCredential
-- | Call if the credential the user entered works, and can be cached for -- | Call if the credential the user entered works, and can be cached for
-- later use if git is configured to do so. -- later use if git is configured to do so.
approveUrlCredential :: Credential -> Repo -> IO () approveUrlCredential :: Credential -> Repo -> IO ()
approveUrlCredential c = void . runCredential "accept" c approveUrlCredential c = void . runCredential "approve" c
-- | Call if the credential the user entered does not work. -- | Call if the credential the user entered does not work.
rejectUrlCredential :: Credential -> Repo -> IO () rejectUrlCredential :: Credential -> Repo -> IO ()