aboutsummaryrefslogtreecommitdiff
path: root/Annex/Content.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-04-08 15:25:32 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-04-08 15:25:32 -0400
commit9e65dd757f9fe8e031ea936ce4e2a8cb998f7f83 (patch)
tree7b6e0c509838db15e079f57f176f5902e65508c5 /Annex/Content.hs
parentfdfd56c647d685ad5618917341db0b7c97e1b63a (diff)
hard links on windows
* annex.thin and annex.hardlink are now supported on Windows. * unannex --fast now makes hard links on Windows.
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r--Annex/Content.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs
index 9c4c1d5b8..a17098ad7 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -594,14 +594,10 @@ linkOrCopy' canhardlink key src dest = catchBoolIO $
where
hardlink = do
s <- getstat
-#ifndef mingw32_HOST_OS
if linkCount s > 1
then copy s
else liftIO (createLink src dest >> return True)
`catchIO` const (copy s)
-#else
- copy s
-#endif
copy = checkedCopyFile' key src dest
getstat = liftIO $ getFileStatus src