2010-11-14 16:35:05 +00:00
|
|
|
{- git-annex command
|
|
|
|
-
|
|
|
|
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
|
|
|
-
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
-}
|
|
|
|
|
|
|
|
module Command.Find where
|
|
|
|
|
2011-10-05 20:02:51 +00:00
|
|
|
import Common.Annex
|
2010-11-14 16:35:05 +00:00
|
|
|
import Command
|
2011-10-04 04:40:47 +00:00
|
|
|
import Annex.Content
|
2011-09-19 00:41:51 +00:00
|
|
|
import Limit
|
2010-11-14 16:35:05 +00:00
|
|
|
|
2011-10-29 19:19:05 +00:00
|
|
|
def :: [Command]
|
|
|
|
def = [command "find" paramPaths seek "lists available files"]
|
2010-12-30 19:06:26 +00:00
|
|
|
|
2010-12-30 18:19:16 +00:00
|
|
|
seek :: [CommandSeek]
|
2011-01-14 03:36:58 +00:00
|
|
|
seek = [withFilesInGit start]
|
2010-11-14 16:35:05 +00:00
|
|
|
|
2011-09-15 20:50:49 +00:00
|
|
|
start :: FilePath -> CommandStart
|
2010-11-14 16:35:05 +00:00
|
|
|
start file = isAnnexed file $ \(key, _) -> do
|
2011-09-19 00:41:51 +00:00
|
|
|
-- only files inAnnex are shown, unless the user has requested
|
|
|
|
-- others via a limit
|
|
|
|
whenM (liftM2 (||) (inAnnex key) limited) $
|
|
|
|
liftIO $ putStrLn file
|
2011-05-15 06:02:46 +00:00
|
|
|
stop
|