@@ -152,13 +152,14 @@ main = bracket
152 unless (null miss) $ exit $! "Could not find " ++ intercalate ", " miss
152 unless (null miss) $ exit $! "Could not find " ++ intercalate ", " miss
153 args <- getArgs
153 args <- getArgs
154 -- check for invalid arguments and print help message if needed
154 -- check for invalid arguments and print help message if needed
155− let goodopts = ["-f","-r","-N", "-p","-R","-H","-B","-A", "-C","-o"]
155+ let goodopts = ["-f","-r","-N", "-p","-R","-H","-B","-A", "-C","-o","-V"]
156 let goodoptslong = ["--from","--read","--strict",
156 let goodoptslong = ["--from","--read","--strict",
157 "--preserve-tabs","--tab-stop","--parse-raw",
157 "--preserve-tabs","--tab-stop","--parse-raw",
158 "--toc","--table-of-contents",
158 "--toc","--table-of-contents",
159 "--number-sections","--include-in-header",
159 "--number-sections","--include-in-header",
160 "--include-before-body","--include-after-body",
160 "--include-before-body","--include-after-body",
161− "--custom-header","--output"]
161+ "--custom-header","--output",
162+ "--template", "--variable"]
162 let isOpt ('-':_) = True
163 let isOpt ('-':_) = True
163 isOpt _ = False
164 isOpt _ = False
164 let opts = filter isOpt args
165 let opts = filter isOpt args