refactor param seeking

This commit is contained in:
Joey Hess 2010-11-11 18:54:52 -04:00
parent 5357d3a37a
commit da0de293d1
17 changed files with 138 additions and 93 deletions

View file

@ -15,6 +15,9 @@ import Messages
import qualified Annex
import qualified GitRepo as Git
seek :: [SubCmdSeek]
seek = [withFilesUnlocked start]
{- Undo unlock -}
start :: SubCmdStartBackendFile
start (file, _) = do