From 6291d6c4ce4e29e57990ce78ef53a4771ba98548 Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 27 Mar 2009 23:51:34 +0000 Subject: Wibble --- src/Haddock/Backends/Html.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock/Backends') 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) -- cgit v1.2.3