diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-12-04 13:02:56 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-12-04 13:03:39 -0400 |
| commit | 13ae7961f9ff251ac4c0d92823ebb7cf6577ce33 (patch) | |
| tree | f15423500aff7434a7b80b5824e24b40f77a34cd /Command | |
| parent | 01bf5a9ec04c2e6711e33d6b43562528d3ab7ae4 (diff) | |
skeleton smudge/clean filters
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Clean.hs | 29 | ||||
| -rw-r--r-- | Command/Smudge.hs | 29 |
2 files changed, 58 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" 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" |