aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2015-11-23 17:17:18 +0000
committerMatthew Pickering <matthewtpickering@gmail.com>2015-12-14 15:54:22 +0000
commitf310809a04592f8841583a2e146021d68f9a8432 (patch)
tree832eaf6d810ba643e9961cd7fb685b0c58f7394a
parentd74b8d0e5ab3589d3ab8cf82e22ab6ac6813ae40 (diff)
Wibble
-rw-r--r--haddock-api/src/Haddock/Utils.hs2
1 files changed, 1 insertions, 1 deletions
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 ]
--------------------------------------------------------------------------------