From 2d724015bdfdeb54d130d8e9a240f3fbe75306c7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 6 Feb 2014 17:08:54 -0400 Subject: work around absNormPath not working on Windows When making git-annex links, we want unix-style paths in the link targets. --- Locations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Locations.hs') diff --git a/Locations.hs b/Locations.hs index 1173677cf..553104d95 100644 --- a/Locations.hs +++ b/Locations.hs @@ -137,7 +137,7 @@ gitAnnexLocation' key r crippled gitAnnexLink :: FilePath -> Key -> Git.Repo -> IO FilePath gitAnnexLink file key r = do cwd <- getCurrentDirectory - let absfile = fromMaybe whoops $ absNormPath cwd file + let absfile = fromMaybe whoops $ absNormPathUnix cwd file loc <- gitAnnexLocation' key r False return $ relPathDirToFile (parentDir absfile) loc where -- cgit v1.2.3