From 7c01390d8bca54c00d1b832070956d3707052605 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 20 Apr 2014 12:46:33 -0400 Subject: webapp: Fix UI for removing XMPP connection. --- Creds.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'Creds.hs') diff --git a/Creds.hs b/Creds.hs index 0586f2070..7273ed966 100644 --- a/Creds.hs +++ b/Creds.hs @@ -14,6 +14,7 @@ module Creds ( getEnvCredPair, writeCacheCreds, readCacheCreds, + removeCreds, ) where import Common.Annex @@ -138,3 +139,9 @@ decodeCredPair :: Creds -> Maybe CredPair decodeCredPair creds = case lines creds of l:p:[] -> Just (l, p) _ -> Nothing + +removeCreds :: FilePath -> Annex () +removeCreds file = do + d <- fromRepo gitAnnexCredsDir + let f = d file + liftIO $ nukeFile f -- cgit v1.2.3