find: New subcommand.

1 files changed, 7 insertions, 0 deletions

diff --git a/Command.hs b/Command.hs
index 40a21cacc..60d82d09f 100644
--- a/Command.hs
+++ b/Command.hs
@@ -158,6 +158,13 @@ withAll w a params = do
 			w a [Git.workTree g]
 		else w a params
 
+{- Provides a default parameter to a with search. -}
+withDefault :: String-> SubCmdSeekStrings -> SubCmdSeekStrings
+withDefault d w a params = do
+	if null params
+		then w a [d]
+		else w a params
+
 {- filter out files from the state directory -}
 notState :: FilePath -> Bool
 notState f = stateLoc /= take (length stateLoc) f