diff options
| author | David Waern <unknown> | 2007-07-11 20:37:11 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-07-11 20:37:11 +0000 |
| commit | 3fe640b29fccb30943612ec1b99b8cd1dbc0fa9f (patch) | |
| tree | 021bc8f49354f0097251f1656fa8a09e10bce3f4 /src/Haddock/Utils.hs | |
| parent | 4404d4f8fe162719aca689ae1c786d43501cfd78 (diff) | |
Follow changes to record constructor representation
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 |