[commit: ghc] master: Use exprCtOrigin in tcRnExpr (2f3b803)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/2f3b8039e43bd1e2ce7d5af166301441e25b40c4/ghc

>---------------------------------------------------------------

commit 2f3b8039e43bd1e2ce7d5af166301441e25b40c4
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Apr 5 13:44:21 2016 +0100

    Use exprCtOrigin in tcRnExpr
    
    Richard suggested this, a good idea


>---------------------------------------------------------------

2f3b8039e43bd1e2ce7d5af166301441e25b40c4
 compiler/typecheck/TcRnDriver.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcRnDriver.hs b/compiler/typecheck/TcRnDriver.hs
index 640d74d..952e4eb 100644
--- a/compiler/typecheck/TcRnDriver.hs
+++ b/compiler/typecheck/TcRnDriver.hs
@@ -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