diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-15 18:11:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-15 18:19:36 -0400 |
| commit | 95d2391f58ae240e7100f0d5488dd7246f71f3bb (patch) | |
| tree | f33f21904ae7be4d40b70bab1e2a68fd4eef5526 /Remote/Rsync.hs | |
| parent | b7e0d39abbc9a09c21c6f0103ad6c9f4547f81fe (diff) | |
more partial function removal
Left a few Prelude.head's in where it was checked not null and too hard to
remove, etc.
Diffstat (limited to 'Remote/Rsync.hs')
| -rw-r--r-- | Remote/Rsync.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs index 81107cb56..c28142077 100644 --- a/Remote/Rsync.hs +++ b/Remote/Rsync.hs @@ -188,7 +188,7 @@ rsyncRemote o params = do directories. -} rsyncSend :: RsyncOpts -> Key -> FilePath -> Annex Bool rsyncSend o k src = withRsyncScratchDir $ \tmp -> do - let dest = tmp </> head (keyPaths k) + let dest = tmp </> Prelude.head (keyPaths k) liftIO $ createDirectoryIfMissing True $ parentDir dest liftIO $ createLink src dest rsyncRemote o |