mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
Command/DropUnused.hs
View file

@ -18,11 +18,11 @@ import qualified Annex
import qualified Command.Drop
import Backend
seek :: [SubCmdSeek]
seek :: [CommandSeek]
seek = [withStrings start]
{- Drops unused content by number. -}
start :: SubCmdStartString
start :: CommandStartString
start s = do
m <- readUnusedLog
case M.lookup s m of