diff options
Diffstat (limited to 'Command/Clean.hs')
-rw-r--r-- | Command/Clean.hs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Command/Clean.hs b/Command/Clean.hs new file mode 100644 index 000000000..9af862fb0 --- /dev/null +++ b/Command/Clean.hs @@ -0,0 +1,29 @@ +{- git-annex command + - + - Copyright 2015 Joey Hess <id@joeyh.name> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Command.Clean where + +import Common.Annex +import Command +import Annex.Content +import Annex.Link +import Git.Types + +cmd :: Command +cmd = dontCheck repoExists $ + command "clean" SectionPlumbing + "git clean filter" + paramFile (withParams seek) + +seek :: CmdParams -> CommandSeek +seek = withWords start + +start :: [String] -> CommandStart +start [file] = do + error ("clean " ++ file) +start [] = error "clean filter run without filename; upgrade git" +start _ = error "clean filter passed multiple filenames" |