diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-04-08 15:25:32 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-04-08 15:25:32 -0400 |
| commit | 9e65dd757f9fe8e031ea936ce4e2a8cb998f7f83 (patch) | |
| tree | 7b6e0c509838db15e079f57f176f5902e65508c5 /Command/Unannex.hs | |
| parent | fdfd56c647d685ad5618917341db0b7c97e1b63a (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 'Command/Unannex.hs')
| -rw-r--r-- | Command/Unannex.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Command/Unannex.hs b/Command/Unannex.hs index f01d2b219..4e83fd420 100644 --- a/Command/Unannex.hs +++ b/Command/Unannex.hs @@ -5,8 +5,6 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE CPP #-} - module Command.Unannex where import Command @@ -107,15 +105,11 @@ cleanupIndirect file key = do copyfrom src = thawContent file `after` liftIO (copyFileExternal CopyAllMetaData src file) hardlinkfrom src = -#ifndef mingw32_HOST_OS -- creating a hard link could fall; fall back to copying ifM (liftIO $ catchBoolIO $ createLink src file >> return True) ( return True , copyfrom src ) -#else - copyfrom src -#endif performDirect :: FilePath -> Key -> CommandPerform performDirect file key = do |