aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Html.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-03-27 23:51:34 +0000
committerDavid Waern <david.waern@gmail.com>2009-03-27 23:51:34 +0000
commit6291d6c4ce4e29e57990ce78ef53a4771ba98548 (patch)
treef39bb88f75a9f39437f99429365d1900d664c423 /src/Haddock/Backends/Html.hs
parentea9a5f61a86ad667084236f048c42c7c844eb029 (diff)
Wibble
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
-rw-r--r--src/Haddock/Backends/Html.hs4
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)