From 7573e6395924f394d529bbbcefe545074c181767 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 18 Feb 2013 02:39:40 -0400 Subject: hlint --- Annex/Content/Direct.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Annex/Content') diff --git a/Annex/Content/Direct.hs b/Annex/Content/Direct.hs index e38fc23ce..67a966142 100644 --- a/Annex/Content/Direct.hs +++ b/Annex/Content/Direct.hs @@ -75,7 +75,7 @@ removeAssociatedFile key file = do addAssociatedFile :: Key -> FilePath -> Annex [FilePath] addAssociatedFile key file = do file' <- normaliseAssociatedFile file - changeAssociatedFiles key $ \files -> do + changeAssociatedFiles key $ \files -> if file' `elem` files then files else file':files -- cgit v1.2.3