diff options
Diffstat (limited to 'Command/Smudge.hs')
-rw-r--r-- | Command/Smudge.hs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Command/Smudge.hs b/Command/Smudge.hs new file mode 100644 index 000000000..22f9efd69 --- /dev/null +++ b/Command/Smudge.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.Smudge where + +import Common.Annex +import Command +import Annex.Content +import Annex.Link +import Git.Types + +cmd :: Command +cmd = dontCheck repoExists $ + command "smudge" SectionPlumbing + "git smudge filter" + paramFile (withParams seek) + +seek :: CmdParams -> CommandSeek +seek = withWords start + +start :: [String] -> CommandStart +start [file] = do + error ("smudge " ++ file) +start [] = error "smudge filter run without filename; upgrade git" +start _ = error "smudge filter passed multiple filenames" |