From accca44fea8b531d27df063f403abbe4303d6ddc Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 4 Mar 2010 13:05:16 +0000 Subject: Track change in HsUtils; and use a nicer function not an internal one --- src/Haddock/GhcUtils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs index 31724864..5c481586 100644 --- a/src/Haddock/GhcUtils.hs +++ b/src/Haddock/GhcUtils.hs @@ -91,9 +91,9 @@ isVarSym = isLexVarSym . occNameFS getMainDeclBinder :: HsDecl name -> Maybe name getMainDeclBinder (TyClD d) = Just (tcdName d) getMainDeclBinder (ValD d) - = case collectAcc d [] of + = case collectHsBindBinders d of [] -> Nothing - (name:_) -> Just (unLoc name) + (name:_) -> Just name getMainDeclBinder (SigD d) = sigNameNoLoc d getMainDeclBinder (ForD (ForeignImport name _ _)) = Just (unLoc name) getMainDeclBinder (ForD (ForeignExport _ _ _)) = Nothing -- cgit v1.2.3