summaryrefslogtreecommitdiff
path: root/Command/Find.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-12-30 15:06:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-12-30 15:06:26 -0400
commita89a6f21145966e625b811741d8ae972a11d92b1 (patch)
tree4fa1a5828b9b787ac25ae057b402e74ac36979d1 /Command/Find.hs
parent6a5be9d53cad9ee2988c6d54001f387dfe1f2716 (diff)
refactor in preparation for adding a git-annex-shell command
Diffstat (limited to 'Command/Find.hs')
-rw-r--r--Command/Find.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/Find.hs b/Command/Find.hs
index 9927b692d..7cb781ce8 100644
--- a/Command/Find.hs
+++ b/Command/Find.hs
@@ -13,6 +13,10 @@ import Control.Monad.State (liftIO)
import Command
import Core
+command :: [Command]
+command = [Command "find" (paramOptional $ paramRepeating paramPath) seek
+ "lists available files"]
+
seek :: [CommandSeek]
seek = [withDefault "." withFilesInGit start]