diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-11-20 15:44:49 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-11-29 16:33:28 +0300 |
| commit | 9b6d1a35f1a78bde60800a1eba516cfa45b1b7b9 (patch) | |
| tree | 9cea5d59d51873e2d6df68a9dc67e8ee0030b69a /compiler/rename/RnExpr.hs | |
| parent | e921c90fec6754414e97bfabaeeb4eaf0241472d (diff) | |
| download | haskell-wip/no-hassrcspan.tar.gz | |
Remove HasSrcSpan (#17494)wip/no-hassrcspan
Metric Decrease:
haddock.compiler
Diffstat (limited to 'compiler/rename/RnExpr.hs')
| -rw-r--r-- | compiler/rename/RnExpr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnExpr.hs b/compiler/rename/RnExpr.hs index 59ca753ae4..693d818f67 100644 --- a/compiler/rename/RnExpr.hs +++ b/compiler/rename/RnExpr.hs @@ -1368,7 +1368,7 @@ segsToStmts empty_rec_stmt ((defs, uses, fwds, ss) : segs) fvs_later where (later_stmts, later_uses) = segsToStmts empty_rec_stmt segs fvs_later new_stmt | non_rec = head ss - | otherwise = cL (getLoc (head ss)) rec_stmt + | otherwise = L (getLoc (head ss)) rec_stmt rec_stmt = empty_rec_stmt { recS_stmts = ss , recS_later_ids = nameSetElemsStable used_later , recS_rec_ids = nameSetElemsStable fwds } |