From b7211e0436828a7e9ffe00a11850a4f25f7e9b26 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 29 Apr 2002 15:28:12 +0000
Subject: [haddock @ 2002-04-29 15:28:12 by simonmar] bugfix for declBinders on
 a NewTypeDecl

---
 src/HaddockUtil.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs
index ae246553..be4b2d88 100644
--- a/src/HaddockUtil.hs
+++ b/src/HaddockUtil.hs
@@ -52,7 +52,7 @@ declBinders d =
    case d of
      HsTypeDecl _ n _ _          -> [n]
      HsDataDecl _ _ n _ cons _   -> n : concat (map conDeclBinders cons)
-     HsNewTypeDecl _ _ n _ _ _   -> [n]
+     HsNewTypeDecl _ _ n _ con _ -> n : conDeclBinders con
      HsClassDecl _ qt _ decls    -> exQtNm qt : collectNames decls
      HsTypeSig _ ns _            -> ns
      HsForeignImport _ _ _ _ n _ -> [n]
-- 
cgit v1.2.3