diff options
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 0ebac139..746fcbbd 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -831,11 +831,11 @@ ppTypeOrFunSig summary links loc docname typ doc (pref1, pref2, sep) = argBox (leader <+> ppType t) <-> rdocBox (noHtml) -ppTyVars :: [Located (HsTyVarBndr DocName)] -> [Html] +ppTyVars :: [LHsTyVarBndr DocName] -> [Html] ppTyVars tvs = map ppTyName (tyvarNames tvs) -tyvarNames :: [Located (HsTyVarBndr DocName)] -> [Name] +tyvarNames :: [LHsTyVarBndr DocName] -> [Name] tyvarNames = map (getName . hsTyVarName . unLoc) |