52 lines
1.4 KiB
Haskell
52 lines
1.4 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2024 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.UpdateProxy where
|
|
|
|
import Command
|
|
import Logs.Proxy
|
|
import Annex.UUID
|
|
import qualified Remote as R
|
|
import qualified Types.Remote as R
|
|
import Utility.SafeOutput
|
|
|
|
import qualified Data.Map as M
|
|
import qualified Data.Set as S
|
|
|
|
cmd :: Command
|
|
cmd = noMessages $ command "updateproxy" SectionSetup
|
|
"update records with proxy configuration"
|
|
paramNothing (withParams seek)
|
|
|
|
seek :: CmdParams -> CommandSeek
|
|
seek = withNothing (commandAction start)
|
|
|
|
start :: CommandStart
|
|
start = startingCustomOutput (ActionItemOther Nothing) $ do
|
|
rs <- R.remoteList
|
|
let proxies = S.fromList $
|
|
map (\r -> Proxy (R.uuid r) (R.name r)) $
|
|
filter (remoteAnnexProxy . R.gitconfig) rs
|
|
u <- getUUID
|
|
oldproxies <- fromMaybe mempty . M.lookup u <$> getProxies
|
|
if oldproxies == proxies
|
|
then liftIO $ putStrLn "No proxy changes to record."
|
|
else do
|
|
describechanges oldproxies proxies
|
|
recordProxies proxies
|
|
next $ return True
|
|
where
|
|
describechanges oldproxies proxies =
|
|
forM_ (S.toList $ S.union oldproxies proxies) $ \p ->
|
|
case (S.member p oldproxies, S.member p proxies) of
|
|
(False, True) -> liftIO $
|
|
putStrLn $ safeOutput $
|
|
"Started proxying for " ++ proxyRemoteName p
|
|
(True, False) -> liftIO $
|
|
putStrLn $ safeOutput $
|
|
"Stopped proxying for " ++ proxyRemoteName p
|
|
_ -> noop
|