mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid adding parsers for fields that already have a parser

Browse source
This commit is contained in:
Joey Hess 2020-01-17 17:11:55 -04:00
parent 8b9b90c74a
commit 2a4731216d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Types/RemoteConfig.hs
View file

@ -10,6 +10,7 @@
module Types.RemoteConfig where
import qualified Data.Map as M
import qualified Data.Set as S
import Data.Typeable
import Types.ProposedAccepted
@ -48,4 +49,10 @@ mkRemoteConfigParser :: Monad m => [RemoteConfigFieldParser] -> RemoteConfig ->
mkRemoteConfigParser l _ = pure (RemoteConfigParser l (const False))
addRemoteConfigParser :: [RemoteConfigFieldParser] -> RemoteConfigParser -> RemoteConfigParser
addRemoteConfigParser l rpc = rpc { remoteConfigFieldParsers = remoteConfigFieldParsers rpc ++ l }
addRemoteConfigParser l rpc = rpc
{ remoteConfigFieldParsers =
remoteConfigFieldParsers rpc ++ filter isnew l
}
where
s = S.fromList (map (\(f, _) -> f) (remoteConfigFieldParsers rpc))
isnew (f, _) = not (S.member f s)