mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use NonEmpty for dirHashes

Browse source 
This avoids 4 uses of head.
This commit is contained in:
Joey Hess 2024-09-26 18:15:00 -04:00
parent 43f31121a5
commit 10216b44d2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 34 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Rsync.hs
View file

@ -51,6 +51,7 @@ import Annex.Verify
import qualified Utility.RawFilePath as R
import qualified Data.Map as M
import qualified Data.List.NonEmpty as NE
remote :: RemoteType
remote = specialRemoteType $ RemoteType
@ -222,7 +223,7 @@ rsyncSetup _ mu _ c gc = do
store :: RsyncOpts -> Key -> FilePath -> MeterUpdate -> Annex ()
store o k src meterupdate = storeGeneric o meterupdate basedest populatedest
where
basedest = fromRawFilePath $ Prelude.head (keyPaths k)
basedest = fromRawFilePath $ NE.head (keyPaths k)
populatedest dest = liftIO $ if canrename
then do
R.rename (toRawFilePath src) (toRawFilePath dest)