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

set write bit on unlocked file

Browse source
This commit is contained in:
Joey Hess 2010-11-10 12:50:00 -04:00
parent f1c4a5a8dc
commit 55720885ae
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/Unlock.hs
View file

@ -16,6 +16,7 @@ import Types
import Messages import Messages
import Locations import Locations
import Utility import Utility
import Core
{- The unlock subcommand replaces the symlink with a copy of the file's {- The unlock subcommand replaces the symlink with a copy of the file's
- content. -} - content. -}
@ -32,5 +33,7 @@ perform dest key = do
showNote "copying..." showNote "copying..."
ok <- liftIO $ boolSystem "cp" ["-p", src, dest] ok <- liftIO $ boolSystem "cp" ["-p", src, dest]
if ok if ok
then return $ Just $ return True -- no cleanup needed then do
liftIO $ allowWrite dest
return $ Just $ return True
else error "cp failed!" else error "cp failed!"