diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-11-20 15:44:49 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-11-30 02:58:34 -0500 |
| commit | 5aba5d3218330f8ce127aa7767efcbb6f63a2db1 (patch) | |
| tree | d11ea424fedf51668f5d9f14c972e6f1dca6693a /compiler/rename/RnUtils.hs | |
| parent | 316f24319e151446c83cbb0f2997a73e19fe4aa3 (diff) | |
| download | haskell-5aba5d3218330f8ce127aa7767efcbb6f63a2db1.tar.gz | |
Remove HasSrcSpan (#17494)
Metric Decrease:
haddock.compiler
Diffstat (limited to 'compiler/rename/RnUtils.hs')
| -rw-r--r-- | compiler/rename/RnUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnUtils.hs b/compiler/rename/RnUtils.hs index 0da8e30f6a..88996e31b1 100644 --- a/compiler/rename/RnUtils.hs +++ b/compiler/rename/RnUtils.hs @@ -66,7 +66,7 @@ import qualified GHC.LanguageExtensions as LangExt newLocalBndrRn :: Located RdrName -> RnM Name -- Used for non-top-level binders. These should -- never be qualified. -newLocalBndrRn (dL->L loc rdr_name) +newLocalBndrRn (L loc rdr_name) | Just name <- isExact_maybe rdr_name = return name -- This happens in code generated by Template Haskell -- See Note [Binders in Template Haskell] in Convert.hs @@ -127,7 +127,7 @@ checkShadowedRdrNames loc_rdr_names where filtered_rdrs = filterOut (isExact . unLoc) loc_rdr_names -- See Note [Binders in Template Haskell] in Convert - get_loc_occ (dL->L loc rdr) = (loc,rdrNameOcc rdr) + get_loc_occ (L loc rdr) = (loc,rdrNameOcc rdr) checkDupAndShadowedNames :: (GlobalRdrEnv, LocalRdrEnv) -> [Name] -> RnM () checkDupAndShadowedNames envs names |