diff options
Diffstat (limited to 'compiler/GHC/Tc/Gen/Expr.hs')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Expr.hs b/compiler/GHC/Tc/Gen/Expr.hs index d970b3e0b2..eaf3a3db0c 100644 --- a/compiler/GHC/Tc/Gen/Expr.hs +++ b/compiler/GHC/Tc/Gen/Expr.hs @@ -2147,7 +2147,7 @@ tcTagToEnum expr fun args app_res_ty res_ty checkThLocalId :: Id -> TcM () -- The renamer has already done checkWellStaged, -- in 'GHC.Rename.Splice.checkThLocalName', so don't repeat that here. --- Here we just just add constraints fro cross-stage lifting +-- Here we just add constraints fro cross-stage lifting checkThLocalId id = do { mb_local_use <- getStageAndBindLevel (idName id) ; case mb_local_use of |