aboutsummaryrefslogtreecommitdiff
path: root/Annex/Difference.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-01-28 18:17:10 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-01-28 18:17:10 -0400
commit60e3e2509878b35b22935164983aebfdf41357bb (patch)
tree7976b805f3e913a5a65ea71f47344c04782168d1 /Annex/Difference.hs
parentbf186b4e0c4124daac55ea913e96997acabff797 (diff)
use a Set
Diffstat (limited to 'Annex/Difference.hs')
-rw-r--r--Annex/Difference.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Difference.hs b/Annex/Difference.hs
index 07789e7bb..66dc03a32 100644
--- a/Annex/Difference.hs
+++ b/Annex/Difference.hs
@@ -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