diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-06-30 12:45:17 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-06-30 12:45:17 +0000 |
| commit | 29e0275bfb3442fcd354075ba5bee09e84503099 (patch) | |
| tree | 743d508ec78533e98288f9a906113172dc45790f /src/Haddock/Options.hs | |
| parent | 3924891dc47a96e13707489b4e55b3fe8d1ce1d7 (diff) | |
LaTeX backend (new options: --latex, --latex-style=<style>)
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs index c180c182..f2718e86 100644 --- a/src/Haddock/Options.hs +++ b/src/Haddock/Options.hs @@ -24,6 +24,7 @@ module Haddock.Options ( optSourceUrls, optWikiUrls, optDumpInterfaceFile, + optLaTeXStyle, verbosity, ghcFlags, ifacePairs @@ -57,6 +58,8 @@ data Flag | Flag_WikiModuleURL String | Flag_WikiEntityURL String | Flag_Xhtml + | Flag_LaTeX + | Flag_LaTeXStyle String | Flag_Help | Flag_Verbosity String | Flag_Version @@ -94,6 +97,8 @@ options backwardsCompat = Option ['h'] ["html"] (NoArg Flag_Html) "output in HTML", Option [] ["xhtml"] (NoArg Flag_Xhtml) "use experimental XHTML rendering", + Option [] ["latex"] (NoArg Flag_LaTeX) "use experimental LaTeX rendering", + Option [] ["latex-style"] (ReqArg Flag_LaTeXStyle "FILE") "provide your own LaTeX style in FILE", Option ['U'] ["use-unicode"] (NoArg Flag_UseUnicode) "use Unicode in HTML output", Option [] ["hoogle"] (NoArg Flag_Hoogle) "output for Hoogle", @@ -216,6 +221,9 @@ optDumpInterfaceFile :: [Flag] -> Maybe FilePath optDumpInterfaceFile flags = optLast [ str | Flag_DumpInterface str <- flags ] +optLaTeXStyle :: [Flag] -> Maybe String +optLaTeXStyle flags = optLast [ str | Flag_LaTeXStyle str <- flags ] + verbosity :: [Flag] -> Verbosity verbosity flags = case [ str | Flag_Verbosity str <- flags ] of |