Commit 2f3b8039 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Use exprCtOrigin in tcRnExpr

Richard suggested this, a good idea
parent 7407a66d
......@@ -1979,7 +1979,7 @@ tcRnExpr hsc_env rdr_expr
-- it might have a rank-2 type (e.g. :t runST)
uniq <- newUnique ;
let { fresh_it = itName uniq (getLoc rdr_expr)
; orig = OccurrenceOf fresh_it } ; -- Not a very satisfactory origin
; orig = exprCtOrigin (unLoc rn_expr) } ;
(tclvl, lie, res_ty)
<- pushLevelAndCaptureConstraints $
do { (_tc_expr, expr_ty) <- tcInferSigma rn_expr
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment