diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-01-10 18:17:43 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-01-10 18:17:43 +0000 |
| commit | 030c726ac75a16fc13ff6d66357331a37374e65f (patch) | |
| tree | a0b789aa64f8080ecfcd7828afc4df5c78a4f52a | |
| parent | 0f6a628a149dd46960d701ae54fdfc057a168640 (diff) | |
Adapt to small change in Pretty's exports
| -rw-r--r-- | src/Haddock/Backends/LaTeX.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Backends/LaTeX.hs b/src/Haddock/Backends/LaTeX.hs index c69f1e18..0bc95719 100644 --- a/src/Haddock/Backends/LaTeX.hs +++ b/src/Haddock/Backends/LaTeX.hs @@ -128,7 +128,7 @@ ppLaTeXTop doctitle packageStr odir prologue maybe_style ifaces = do filename = odir </> (fromMaybe "haddock" packageStr <.> "tex") - writeFile filename (render tex) + writeFile filename (show tex) ppLaTeXModule :: String -> FilePath -> Interface -> IO () @@ -401,7 +401,7 @@ declWithDoc :: LaTeX -> Maybe LaTeX -> LaTeX declWithDoc decl doc = text "\\begin{haddockdesc}" $$ text "\\item[\\begin{tabular}{@{}l}" $$ - text (latexMonoFilter (render decl)) $$ + text (latexMonoFilter (show decl)) $$ text "\\end{tabular}]" <> (if isNothing doc then empty else text "\\haddockbegindoc") $$ maybe empty id doc $$ @@ -416,7 +416,7 @@ multiDecl decls = text "\\begin{haddockdesc}" $$ vcat [ text "\\item[" $$ - text (latexMonoFilter (render decl)) $$ + text (latexMonoFilter (show decl)) $$ text "]" | decl <- decls ] $$ text "\\end{haddockdesc}" |