Fix test

1 files changed, 6 insertions, 5 deletions

diff --git a/libraries/ghc-heap/tests/stack_big_ret.hs b/libraries/ghc-heap/tests/stack_big_ret.hs
index c4a66d52e7..845c560abc 100644
--- a/libraries/ghc-heap/tests/stack_big_ret.hs
+++ b/libraries/ghc-heap/tests/stack_big_ret.hs
@@ -49,11 +49,12 @@ main = do
   let xs = zip [1 ..] cs
   mapM_ (uncurry checkArg) xs
 
-checkArg :: Word -> Closure -> IO ()
-checkArg w bp =
-  case bp of
-    UnknownTypeWordSizedPrimitive _ -> error "Unexpected payload type from bitmap."
-    c -> do
+checkArg :: Word -> StackField -> IO ()
+checkArg w sf =
+  case sf of
+    StackWord _ -> error "Unexpected payload type from bitmap."
+    StackBox b -> do
+      c <- getBoxedClosureData b
       assertEqual CONSTR_0_1 $ (tipe . info) c
       assertEqual "I#" (name c)
       assertEqual "ghc-prim" (pkg c)