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

use a Set

Browse source
This commit is contained in:
Joey Hess 2015-01-28 18:17:10 -04:00
parent fb6173e3f5
commit c8163ce29a
4 changed files with 17 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex/Difference.hs
View file

@ -34,7 +34,7 @@ setDifferences = do
otherds <- allDifferences <$> recordedDifferences
ds <- mappend otherds . annexDifferences <$> Annex.getGitConfig
when (ds /= mempty) $ do
ds'@(Differences l) <- ifM (isJust <$> getVersion)
ds' <- ifM (isJust <$> getVersion)
( do
oldds <- recordedDifferencesFor u
when (ds /= oldds) $
@ -53,6 +53,6 @@ setDifferences = do
return otherds
else return ds
)
forM_ l $ \d ->
forM_ (listDifferences ds') $ \d ->
setConfig (ConfigKey $ differenceConfigKey d) (differenceConfigVal d)
recordDifferences ds' u