git-annex/Command/Find.hs

{- git-annex command
 -
 - Copyright 2010 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Command.Find where

import Control.Monad.State

import Command
import Content
import Utility.Conditional
import Limit

command :: [Command]
command = [repoCommand "find" paramPaths seek "lists available files"]

seek :: [CommandSeek]
seek = [withFilesInGit start]

start :: FilePath -> CommandStart
start file = isAnnexed file $ \(key, _) -> do
	-- only files inAnnex are shown, unless the user has requested
	-- others via a limit
	whenM (liftM2 (||) (inAnnex key) limited) $
		liftIO $ putStrLn file
	stop
find: New subcommand. 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`

make find show files meeting limits, even when not present find: Rather than only showing files whose contents are present, when used with --exclude --copies or --in, displays all files that match the specified conditions. Note that this is a behavior change for find --exclude! Old behavior can be gotten with find --in . --exclude=... 2011-09-19 00:41:51 +00:00			`import Control.Monad.State`
find: New subcommand. 2010-11-14 16:35:05 +00:00
			`import Command`
got rid of Core module Most of it was to do with managing annexed Content, so put there 2011-01-16 20:05:05 +00:00			`import Content`
split groups of related functions out of Utility 2011-08-22 20:14:12 +00:00			`import Utility.Conditional`
make find show files meeting limits, even when not present find: Rather than only showing files whose contents are present, when used with --exclude --copies or --in, displays all files that match the specified conditions. Note that this is a behavior change for find --exclude! Old behavior can be gotten with find --in . --exclude=... 2011-09-19 00:41:51 +00:00			`import Limit`
find: New subcommand. 2010-11-14 16:35:05 +00:00
refactor in preparation for adding a git-annex-shell command 2010-12-30 19:06:26 +00:00			`command :: [Command]`
clean up params in usage display 2011-09-15 18:33:37 +00:00			`command = [repoCommand "find" paramPaths seek "lists available files"]`
refactor in preparation for adding a git-annex-shell command 2010-12-30 19:06:26 +00:00
rename some stuff and prepare to break out more into Command/* 2010-12-30 18:19:16 +00:00			`seek :: [CommandSeek]`
clarify default values when no path is specified Much of the code to handle this was unnecessary, as git ls-files is used, and defaults to returning all files of the desired type. 2011-01-14 03:36:58 +00:00			`seek = [withFilesInGit start]`
find: New subcommand. 2010-11-14 16:35:05 +00:00
remove command type definitions These were a mistake, they make the type signatures harder to read and less flexible. The CommandSeek, CommandStart, CommandPerform, and CommandCleanup types were a good idea, but composing them with the parameters expected is going too far. 2011-09-15 20:50:49 +00:00			`start :: FilePath -> CommandStart`
find: New subcommand. 2010-11-14 16:35:05 +00:00			`start file = isAnnexed file $ \(key, _) -> do`
make find show files meeting limits, even when not present find: Rather than only showing files whose contents are present, when used with --exclude --copies or --in, displays all files that match the specified conditions. Note that this is a behavior change for find --exclude! Old behavior can be gotten with find --in . --exclude=... 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`
refactor some boilerplate 2011-05-15 06:02:46 +00:00			`stop`