Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5d6ba12903c9cf8d0be6d55c557850d869af8b31 >--------------------------------------------------------------- commit 5d6ba12903c9cf8d0be6d55c557850d869af8b31 Author: Simon Marlow <[email protected]> Date: Wed Nov 2 14:22:25 2011 +0000 follow changes in Core: Note -> Tick >--------------------------------------------------------------- tests/plugins/HomePackagePlugin.hs | 4 ++-- tests/plugins/simple-plugin/Simple/Plugin.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/plugins/HomePackagePlugin.hs b/tests/plugins/HomePackagePlugin.hs index 3a5318a..7a6942b 100644 --- a/tests/plugins/HomePackagePlugin.hs +++ b/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/tests/plugins/simple-plugin/Simple/Plugin.hs b/tests/plugins/simple-plugin/Simple/Plugin.hs index d362518..5de6170 100644 --- a/tests/plugins/simple-plugin/Simple/Plugin.hs +++ b/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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
