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

remove only case

Browse source
This commit is contained in:
Joey Hess 2019-08-26 13:28:28 -04:00
parent 2fd27c6df5
commit 1e02360283
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Annex/Content/LowLevel.hs
View file

@ -48,12 +48,11 @@ linkOrCopy :: Key -> FilePath -> FilePath -> Maybe FileMode -> Annex (Maybe Link
linkOrCopy = linkOrCopy' (annexThin <$> Annex.getGitConfig) linkOrCopy = linkOrCopy' (annexThin <$> Annex.getGitConfig)
linkOrCopy' :: Annex Bool -> Key -> FilePath -> FilePath -> Maybe FileMode -> Annex (Maybe LinkedOrCopied) linkOrCopy' :: Annex Bool -> Key -> FilePath -> FilePath -> Maybe FileMode -> Annex (Maybe LinkedOrCopied)
linkOrCopy' canhardlink key src dest destmode linkOrCopy' canhardlink key src dest destmode = catchDefaultIO Nothing $
| otherwise = catchDefaultIO Nothing $ ifM canhardlink
ifM canhardlink ( hardlink
( hardlink , copy =<< getstat
, copy =<< getstat )
)
where where
hardlink = do hardlink = do
s <- getstat s <- getstat