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(-)

(limited to 'src/Haddock/Backends/LaTeX.hs')

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