33 lines
933 B
Haskell
33 lines
933 B
Haskell
{- git-annex file copying with rsync
|
|
-
|
|
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module RsyncFile where
|
|
|
|
import Utility
|
|
import System.Posix.Process
|
|
|
|
{- Runs rsync in server mode to send a file, and exits. -}
|
|
rsyncServerSend :: FilePath -> IO ()
|
|
rsyncServerSend file = rsyncExec $ rsyncServerParams ++ ["--sender", file]
|
|
|
|
{- Runs rsync in server mode to receive a file. -}
|
|
rsyncServerReceive :: FilePath -> IO Bool
|
|
rsyncServerReceive file = rsync $ rsyncServerParams ++ [file]
|
|
|
|
rsyncServerParams :: [String]
|
|
rsyncServerParams =
|
|
[ "--server"
|
|
, "-p" -- preserve permissions
|
|
, "--inplace" -- allow resuming of transfers of big files
|
|
, "-e.Lsf", "." -- other options rsync normally uses in server mode
|
|
]
|
|
|
|
rsync :: [String] -> IO Bool
|
|
rsync params = boolSystem "rsync" params
|
|
|
|
rsyncExec :: [String] -> IO ()
|
|
rsyncExec params = executeFile "rsync" True params Nothing
|