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

avoid unncessary IO

Browse source
This commit is contained in:
Joey Hess 2015-02-12 15:33:05 -04:00
parent ecf7ef3ff2
commit 52e40970c8
6 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Helper/Special.hs
View file

@ -59,7 +59,7 @@ findSpecialRemotes s = do
liftIO $ mapM construct $ remotepairs m
where
remotepairs = M.toList . M.filterWithKey match
construct (k,_) = Git.Construct.remoteNamedFromKey k Git.Construct.fromUnknown
construct (k,_) = Git.Construct.remoteNamedFromKey k (pure Git.Construct.fromUnknown)
match k _ = startswith "remote." k && endswith (".annex-"++s) k
{- Sets up configuration for a special remote in .git/config. -}