[commit: haddock] master: Adapt to small change in Pretty's exports (030c726)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/030c726ac75a16fc13ff6d66357331a37374e65f

>---------------------------------------------------------------

commit 030c726ac75a16fc13ff6d66357331a37374e65f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jan 10 18:17:43 2014 +0000

    Adapt to small change in Pretty's exports


>---------------------------------------------------------------

030c726ac75a16fc13ff6d66357331a37374e65f
 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 c69f1e1..0bc9571 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}"