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 Types
import Core
import Messages
seek :: [SubCmdSeek]
seek = [withKeys start]
{- Drops cached content for a key. -}
start :: SubCmdStartString
start keyname = do