diff options
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |