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

@ -18,6 +18,9 @@ import UUID
import Version
import Messages
seek :: [SubCmdSeek]
seek = [withDescription start]
{- Stores description for the repository etc. -}
start :: SubCmdStartString
start description = do