rename some stuff and prepare to break out more into Command/*

This commit is contained in:
Joey Hess 2010-12-30 14:19:16 -04:00
parent 14d59b40fb
commit 6a5be9d53c
24 changed files with 176 additions and 158 deletions

View file

@ -15,11 +15,11 @@ import Types
import Core
import Messages
seek :: [SubCmdSeek]
seek :: [CommandSeek]
seek = [withKeys start]
{- Drops cached content for a key. -}
start :: SubCmdStartString
start :: CommandStartString
start keyname = do
backends <- Backend.list
let key = genKey (head backends) keyname
@ -33,12 +33,12 @@ start keyname = do
showStart "dropkey" keyname
return $ Just $ perform key
perform :: Key -> SubCmdPerform
perform :: Key -> CommandPerform
perform key = do
removeAnnex key
return $ Just $ cleanup key
cleanup :: Key -> SubCmdCleanup
cleanup :: Key -> CommandCleanup
cleanup key = do
logStatus key ValueMissing
return True