summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
Diffstat (limited to 'Command')
-rw-r--r--Command/Unannex.hs6
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