diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghctags/Main.hs | 2 | ||||
| m--------- | utils/haddock | 0 |
2 files changed, 1 insertions, 1 deletions
diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 4062535c05..16b2e95e57 100644 --- a/utils/ghctags/Main.hs +++ b/utils/ghctags/Main.hs @@ -259,7 +259,7 @@ boundValues mod group = , bind <- bagToList binds , x <- boundThings mod bind ] _other -> error "boundValues" - tys = [ n | ns <- map hsLTyClDeclBinders (tyClGroupConcat (hs_tyclds group)) + tys = [ n | ns <- map (fst . hsLTyClDeclBinders) (tyClGroupConcat (hs_tyclds group)) , n <- map found ns ] fors = concat $ map forBound (hs_fords group) where forBound lford = case unLoc lford of diff --git a/utils/haddock b/utils/haddock -Subproject c7a8a8b32c9075873d666f7d0fc8a99828e1734 +Subproject 4ad0043d43e97c0f59028e91a460d4d9abb90da |