diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-23 17:17:18 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-23 17:17:18 +0000 |
| commit | 42b2cfc595f1ee62d1c1b8513c5df1d92709c06a (patch) | |
| tree | 59157127a5dca92615b34a24b9d487e293bd7562 /haddock-api | |
| parent | 95e4362d9200b31f3f26fe8d2f97b5565e5ab7b3 (diff) | |
Wibble
Diffstat (limited to 'haddock-api')
| -rw-r--r-- | haddock-api/src/Haddock/Utils.hs | 2 |
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 ] -------------------------------------------------------------------------------- |