From 030c726ac75a16fc13ff6d66357331a37374e65f Mon Sep 17 00:00:00 2001
From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Fri, 10 Jan 2014 18:17:43 +0000
Subject: Adapt to small change in Pretty's exports
---
src/Haddock/Backends/LaTeX.hs | 6 +++---
1 file 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}"
--
cgit v1.2.3