diff options
| author | simonpj <simonpj@microsoft.com> | 2010-03-04 13:05:16 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-03-04 13:05:16 +0000 |
| commit | accca44fea8b531d27df063f403abbe4303d6ddc (patch) | |
| tree | 92d9f7265ef0e916b9754a2984fdaef3bd21d954 | |
| parent | 1a7703d1cafd40e7284f8c28ce72fabf241beb95 (diff) | |
Track change in HsUtils; and use a nicer function not an internal one
| -rw-r--r-- | src/Haddock/GhcUtils.hs | 4 |
1 files 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 |