diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-02 14:22:25 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-02 14:22:25 +0000 |
| commit | 9f9906508af8760ff4c66e2cc379feb90f21df1d (patch) | |
| tree | 40643cb15a2d98dd81ac9e592fbe5e5d65642982 /testsuite/tests/plugins | |
| parent | fd896fd7c795cee9f7b8507545995eb94b81c94a (diff) | |
| download | haskell-9f9906508af8760ff4c66e2cc379feb90f21df1d.tar.gz | |
follow changes in Core: Note -> Tick
Diffstat (limited to 'testsuite/tests/plugins')
| -rw-r--r-- | testsuite/tests/plugins/HomePackagePlugin.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/plugins/HomePackagePlugin.hs b/testsuite/tests/plugins/HomePackagePlugin.hs index 3a5318a2b7..7a6942be6a 100644 --- a/testsuite/tests/plugins/HomePackagePlugin.hs +++ b/testsuite/tests/plugins/HomePackagePlugin.hs @@ -25,10 +25,10 @@ replaceInExpr (Lit l) = Lit l replaceInExpr (Lam b e) = Lam b (replaceInExpr e) replaceInExpr (App e1 e2) = App (replaceInExpr e1) (replaceInExpr e2) replaceInExpr (Let bi e) = Let (replaceInBind bi) (replaceInExpr e) -replaceInExpr (Note no e) = Note no (replaceInExpr e) +replaceInExpr (Tick t e) = Tick t (replaceInExpr e) replaceInExpr (Cast e co) = Cast (replaceInExpr e) co replaceInExpr (Case e b ty alts) = Case (replaceInExpr e) b ty (map replaceInAlt alts) replaceInExpr (Type ty) = Type ty replaceInAlt :: CoreAlt -> CoreAlt -replaceInAlt (ac, bs, e) = (ac, bs, replaceInExpr e)
\ No newline at end of file +replaceInAlt (ac, bs, e) = (ac, bs, replaceInExpr e) diff --git a/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs b/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs index d362518e4f..5de617036c 100644 --- a/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs +++ b/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs @@ -75,7 +75,7 @@ changeExpr anns mb_replacement e = let go = changeExpr anns mb_replacement in ca Let bind e -> liftM2 Let (changeBind anns mb_replacement bind) (go e) Case e b ty alts -> liftM4 Case (go e) (return b) (return ty) (mapM (changeAlt anns mb_replacement) alts) Cast e coerce -> liftM2 Cast (go e) (return coerce) - Note note e -> liftM (Note note) (go e) + Tick t e -> liftM (Tick t) (go e) _ -> return e changeAlt :: UniqFM [ReplaceWith] -> Maybe String -> CoreAlt -> CoreM CoreAlt |