diff options
| author | David Waern <david.waern@gmail.com> | 2009-03-27 23:51:34 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-03-27 23:51:34 +0000 |
| commit | 6291d6c4ce4e29e57990ce78ef53a4771ba98548 (patch) | |
| tree | f39bb88f75a9f39437f99429365d1900d664c423 | |
| parent | ea9a5f61a86ad667084236f048c42c7c844eb029 (diff) | |
Wibble
| -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) |