From 7b865ad373612e93c9b62db0b5efe14524caa388 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 10 Aug 2004 14:09:57 +0000
Subject: [haddock @ 2004-08-10 14:09:57 by simonmar] Fixes for
 DevHelp/HtmlHelp following introduction of short module description.

---
 src/HaddockHH2.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/HaddockHH2.hs')

diff --git a/src/HaddockHH2.hs b/src/HaddockHH2.hs
index 3cee48e3..2555e523 100644
--- a/src/HaddockHH2.hs
+++ b/src/HaddockHH2.hs
@@ -40,9 +40,9 @@ ppHH2Contents odir doctitle maybe_package tree = do
 	ppModuleTree _  []     = error "HaddockHH2.ppHH2Contents.ppModuleTree: no module trees given"
 
 	ppNode :: [String] -> ModuleTree -> Doc
-	ppNode ss (Node s leaf _pkg []) =
+	ppNode ss (Node s leaf _pkg _short []) =
 	  text "<HelpTOCNode"  <+> ppAttributes leaf (s:ss) <> text "/>"
-	ppNode ss (Node s leaf _pkg ts) =
+	ppNode ss (Node s leaf _pkg _short ts) =
 	  text "<HelpTOCNode" <+> ppAttributes leaf (s:ss) <> text ">" $$
 	  nest 4 (ppModuleTree (s:ss) ts) $+$
 	  text "</HelpTOCNode>"
-- 
cgit v1.2.3