Only use cp -a if it is supported, falling back to cp -p or plain cp.

* cp --reflink=auto is used if supported, and will make git annex unlock
  much faster on filesystems like btrfs that support copy of write.

1 files changed, 4 insertions, 3 deletions

diff --git a/Command/Unlock.hs b/Command/Unlock.hs
index 3ff3023b2..34fde819c 100644
--- a/Command/Unlock.hs
+++ b/Command/Unlock.hs
@@ -8,7 +8,7 @@
 module Command.Unlock where
 
 import Control.Monad.State (liftIO)
-import System.Directory
+import System.Directory hiding (copyFile)
 
 import Command
 import qualified Annex
@@ -17,6 +17,7 @@ import Messages
 import Locations
 import Utility
 import Core
+import CopyFile
 
 seek :: [SubCmdSeek]
 seek = [withFilesInGit start]
@@ -34,9 +35,9 @@ perform dest key = do
 	let src = annexLocation g key
 	liftIO $ removeFile dest
 	showNote "copying..."
-	ok <- liftIO $ boolSystem "cp" ["-p", src, dest]
+	ok <- liftIO $ copyFile src dest
         if ok
                 then do
 			liftIO $ allowWrite dest
 			return $ Just $ return True
-                else error "cp failed!"
+                else error "copy failed!"