diff options
Diffstat (limited to 'compiler/simplCore/SetLevels.hs')
| -rw-r--r-- | compiler/simplCore/SetLevels.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs index 955d3ba89d..c0d6e8d862 100644 --- a/compiler/simplCore/SetLevels.hs +++ b/compiler/simplCore/SetLevels.hs @@ -305,7 +305,8 @@ lvlExpr env (_, AnnCast expr (_, co)) = do lvlExpr env (_, AnnTick tickish expr) = do expr' <- lvlExpr env expr - return (Tick tickish expr') + let tickish' = substTickish (le_subst env) tickish + return (Tick tickish' expr') lvlExpr env expr@(_, AnnApp _ _) = do let |