diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-15 16:57:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-15 16:59:52 -0400 |
| commit | 5ff04bf2afcc62d1762adbc1c2a0374952328c0f (patch) | |
| tree | a2d6bfac942582573d71ffe394f1c867688f8024 /Command/Lock.hs | |
| parent | 35145202d2e463569989b710ab5b87f6d9a8fdc1 (diff) | |
tweak
Diffstat (limited to 'Command/Lock.hs')
| -rw-r--r-- | Command/Lock.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Lock.hs b/Command/Lock.hs index 1c9a747f4..04d1bb94d 100644 --- a/Command/Lock.hs +++ b/Command/Lock.hs @@ -14,6 +14,7 @@ import Command import Messages import qualified AnnexQueue import Utility.SafeCommand +import Backend command :: [Command] command = [repoCommand "lock" paramPaths seek "undo unlock command"] @@ -23,7 +24,7 @@ seek = [withFilesUnlocked start, withFilesUnlockedToBeCommitted start] {- Undo unlock -} start :: BackendFile -> CommandStart -start (file, _) = do +start (_, file) = do showStart "lock" file next $ perform file |