From 67cc72d540d8dd03f433a135297ba86d896ba14d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Dec 2012 12:44:24 -0400 Subject: normalise associated files Sometimes ./file will be passed in, and sometimes file; need to treat these the same. --- Annex/Direct.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Annex/Direct.hs') diff --git a/Annex/Direct.hs b/Annex/Direct.hs index 3846b0a9e..6ddea08fb 100644 --- a/Annex/Direct.hs +++ b/Annex/Direct.hs @@ -175,7 +175,7 @@ toDirectGen :: Key -> FilePath -> Annex (Maybe (Annex ())) toDirectGen k f = do loc <- inRepo $ gitAnnexLocation k createContentDir loc -- thaws directory too - locs <- filter (/= f) <$> addAssociatedFile k f + locs <- filter (/= normalise f) <$> addAssociatedFile k f case locs of [] -> ifM (liftIO $ doesFileExist loc) ( return $ Just $ do -- cgit v1.2.3