skeleton smudge/clean filters

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"