From 3fe640b29fccb30943612ec1b99b8cd1dbc0fa9f Mon Sep 17 00:00:00 2001
From: David Waern <unknown>
Date: Wed, 11 Jul 2007 20:37:11 +0000
Subject: Follow changes to record constructor representation

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

(limited to 'src/Haddock/Utils.hs')

diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs
index 27f60e4a..a7f5f8a9 100644
--- a/src/Haddock/Utils.hs
+++ b/src/Haddock/Utils.hs
@@ -95,8 +95,8 @@ restrictCons names decls = [ L p d | L p (Just d) <- map (fmap keep) decls ]
           -- it's the best we can do.
         InfixCon _ _ -> Just d
       where
-        field_avail (HsRecField n _ _) = (unLoc n) `elem` names
-        field_types flds = [ ty | HsRecField n ty _ <- flds] 
+        field_avail (ConDeclField n _ _) = (unLoc n) `elem` names
+        field_types flds = [ t | ConDeclField _ t _ <- flds ] 
       
     keep d | otherwise = Nothing
 
-- 
cgit v1.2.3