Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : ghc-7.2
http://hackage.haskell.org/trac/ghc/changeset/b1eeb5d180d1aec3617ff35d4c1886159f054154 >--------------------------------------------------------------- commit b1eeb5d180d1aec3617ff35d4c1886159f054154 Author: Ian Lynagh <[email protected]> Date: Fri Jul 22 14:03:34 2011 +0100 Monir tweaks to annrun01 >--------------------------------------------------------------- tests/annotations/should_run/annrun01.hs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/tests/annotations/should_run/annrun01.hs b/tests/annotations/should_run/annrun01.hs index e626dad..691e6a3 100644 --- a/tests/annotations/should_run/annrun01.hs +++ b/tests/annotations/should_run/annrun01.hs @@ -16,6 +16,7 @@ import qualified Language.Haskell.TH as TH import Data.List import Data.Function +main :: IO () main = defaultErrorHandler defaultLogAction $ runGhc (Just cTop) $ do liftIO $ putStrLn "Initializing Package Database" @@ -38,7 +39,8 @@ main = defaultErrorHandler defaultLogAction liftIO $ putStrLn "Showing Details For Module" showTargetAnns (ModuleTarget mod) liftIO $ putStrLn "Showing Details For Exports" - mapM (showTargetAnns . NamedTarget) $ sortBy (compare `on` getOccName) $ modInfoExports mod_info + let exports = sortBy (compare `on` getOccName) $ modInfoExports mod_info + mapM_ (showTargetAnns . NamedTarget) exports showTargetAnns :: CoreAnnTarget -> Ghc () showTargetAnns target = do _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
