diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-06 17:08:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-06 17:17:35 -0400 |
| commit | 2d724015bdfdeb54d130d8e9a240f3fbe75306c7 (patch) | |
| tree | 1f6f56812469df57af5971d47d7cbf3e564d4c9a /Locations.hs | |
| parent | d802f73243adb29b4436d0f0fd80660d78dacc58 (diff) | |
work around absNormPath not working on Windows
When making git-annex links, we want unix-style paths in the link targets.
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |