[commit: testsuite] master: Fix T4891 following GHC API changes (8b6a1a2)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8b6a1a2ba410e1c9a255909981a49437bec042b3

>---------------------------------------------------------------

commit 8b6a1a2ba410e1c9a255909981a49437bec042b3
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Feb 17 21:51:30 2013 +0000

    Fix T4891 following GHC API changes

>---------------------------------------------------------------

 tests/ghc-api/T4891/T4891.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tests/ghc-api/T4891/T4891.hs b/tests/ghc-api/T4891/T4891.hs
index 02d2dee..ca4aff9 100644
--- a/tests/ghc-api/T4891/T4891.hs
+++ b/tests/ghc-api/T4891/T4891.hs
@@ -52,7 +52,7 @@ chaseConstructor :: (GhcMonad m) => HValue -> m ()
 chaseConstructor !hv = do
   dflags <- getDynFlags
   liftIO $ putStrLn "====="
-  closure <- liftIO $ getClosureData hv
+  closure <- liftIO $ getClosureData dflags hv
   case tipe closure  of
     Indirection _ -> chaseConstructor (ptrs closure ! 0)
     Constr -> do