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

@ -20,6 +20,9 @@ import Types
import Core
import Messages
seek :: [SubCmdSeek]
seek = [withFilesMissing start]
{- Adds a file pointing at a manually-specified key -}
start :: SubCmdStartString
start file = do