e880d0d22c
Only fsck and reinject and the test suite used the Backend, and they can look it up as needed from the Key. This simplifies the code and also speeds it up. There is a small behavior change here. Before, all commands would warn when acting on an annexed file with an unknown backend. Now, only fsck and reinject show that warning.
50 lines
1.2 KiB
Haskell
50 lines
1.2 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.Unlock where
|
|
|
|
import Common.Annex
|
|
import Command
|
|
import Annex.Content
|
|
import Utility.CopyFile
|
|
|
|
def :: [Command]
|
|
def =
|
|
[ c "unlock" "unlock files for modification"
|
|
, c "edit" "same as unlock"
|
|
]
|
|
where
|
|
c n = notDirect . command n paramPaths seek SectionCommon
|
|
|
|
seek :: CommandSeek
|
|
seek = withFilesInGit $ whenAnnexed start
|
|
|
|
{- The unlock subcommand replaces the symlink with a copy of the file's
|
|
- content. -}
|
|
start :: FilePath -> Key -> CommandStart
|
|
start file key = do
|
|
showStart "unlock" file
|
|
next $ perform file key
|
|
|
|
perform :: FilePath -> Key -> CommandPerform
|
|
perform dest key = do
|
|
unlessM (inAnnex key) $ error "content not present"
|
|
unlessM (checkDiskSpace Nothing key 0) $ error "cannot unlock"
|
|
|
|
src <- calcRepo $ gitAnnexLocation key
|
|
tmpdest <- fromRepo $ gitAnnexTmpObjectLocation key
|
|
liftIO $ createDirectoryIfMissing True (parentDir tmpdest)
|
|
showAction "copying"
|
|
ifM (liftIO $ copyFileExternal src tmpdest)
|
|
( do
|
|
liftIO $ do
|
|
removeFile dest
|
|
moveFile tmpdest dest
|
|
thawContent dest
|
|
next $ return True
|
|
, error "copy failed!"
|
|
)
|