diff options
| author | andy@galois.com <unknown> | 2006-12-29 07:29:48 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2006-12-29 07:29:48 +0000 |
| commit | d386e0d20c6953b7cba4d53538a1782c4aa9980d (patch) | |
| tree | ad538fc846298d0d3f7af930427f6f6db311143f /compiler/rename | |
| parent | 654a1ba16e47d3ddabeb74b809ee6097c0770d35 (diff) | |
| download | haskell-d386e0d20c6953b7cba4d53538a1782c4aa9980d.tar.gz | |
Adding a GENERATED pragma
Adding a {-# GENERATED "SourceFile" SourceSpan #-} <expr> pragma.
This will be used to generate coverage for tool generated (or quoted) code.
The pragma states the the expression was generated/quoted from the stated
source file and source span.
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnExpr.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index 1c80bc0101..996c1028f2 100644 --- a/compiler/rename/RnExpr.lhs +++ b/compiler/rename/RnExpr.lhs @@ -179,6 +179,9 @@ rnExpr (HsCoreAnn ann expr) rnExpr (HsSCC lbl expr) = rnLExpr expr `thenM` \ (expr', fvs_expr) -> returnM (HsSCC lbl expr', fvs_expr) +rnExpr (HsTickPragma info expr) + = rnLExpr expr `thenM` \ (expr', fvs_expr) -> + returnM (HsTickPragma info expr', fvs_expr) rnExpr (HsLam matches) = rnMatchGroup LambdaExpr matches `thenM` \ (matches', fvMatch) -> |