From 42b2cfc595f1ee62d1c1b8513c5df1d92709c06a Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Mon, 23 Nov 2015 17:17:18 +0000 Subject: Wibble --- haddock-api/src/Haddock/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'haddock-api/src/Haddock/Utils.hs') diff --git a/haddock-api/src/Haddock/Utils.hs b/haddock-api/src/Haddock/Utils.hs index f7a32dd3..658007ba 100644 --- a/haddock-api/src/Haddock/Utils.hs +++ b/haddock-api/src/Haddock/Utils.hs @@ -150,7 +150,7 @@ addClassContext _ _ sig = sig -- E.g. a MinimalSig is fine lHsQTyVarsToTypes :: LHsQTyVars Name -> [LHsType Name] lHsQTyVarsToTypes tvs - = [ noLoc (HsTyVar (hsLTyVarName tv)) + = [ noLoc (HsTyVar (noLoc (hsLTyVarName tv))) | tv <- hsQTvBndrs tvs ] -------------------------------------------------------------------------------- -- cgit v1.2.3