diff options
| author |  Joey Hess <id@joeyh.name> | 2013-05-12 17:18:48 -0500 |
|---|---|---|
| committer | Joey Hess <id@joeyh.name> | 2013-05-12 17:29:49 -0500 |
| commit | b02c68304aa5051086e29a0cb6547fdf856aa93d (patch) | |
| tree | 104139431d5e4df6258a7b7f000ecd605a3bf096 /Annex/Link.hs | |
| parent | ac86f7dbae96c5b813147bf8de5fe40df002671e (diff) | |
deal with git using / internally, even on DOS
Diffstat (limited to 'Annex/Link.hs')
| -rwxr-xr-x[-rw-r--r--] | Annex/Link.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Annex/Link.hs b/Annex/Link.hs index 931836d31..24ec6c7c9 100644..100755 --- a/Annex/Link.hs +++ b/Annex/Link.hs @@ -18,6 +18,7 @@ import qualified Git.HashObject import qualified Git.UpdateIndex import qualified Annex.Queue import Git.Types +import Git.FilePath type LinkTarget = String @@ -74,7 +75,8 @@ addAnnexLink linktarget file = do {- Injects a symlink target into git, returning its Sha. -} hashSymlink :: LinkTarget -> Annex Sha -hashSymlink linktarget = inRepo $ Git.HashObject.hashObject BlobObject linktarget +hashSymlink linktarget = inRepo $ Git.HashObject.hashObject BlobObject $ + toInternalGitPath linktarget {- Stages a symlink to the annex, using a Sha of its target. -} stageSymlink :: FilePath -> Sha -> Annex () |