From 5ff04bf2afcc62d1762adbc1c2a0374952328c0f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 15 Sep 2011 16:57:02 -0400
Subject: tweak

---
 Command/Lock.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Command/Lock.hs')

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
 
-- 
cgit v1.2.3