[commit: testsuite] ghc-7.2: Monir tweaks to annrun01 (b1eeb5d)

[Ian Lynagh]

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 <igloo at earth.li>
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