New implementation of BLACKHOLEs

[ghc-hetmet.git] / utils / genapply / GenApply.hs

diff --git a/utils/genapply/GenApply.hs b/utils/genapply/GenApply.hs
index 765bfb3..16d3394 100644 (file)
--- a/utils/genapply/GenApply.hs
+++ b/utils/genapply/GenApply.hs
@@ -564,8 +564,8 @@ genApply regstatus args =
 --    else:
        text "case AP,",
        text "     AP_STACK,",
-       text "     CAF_BLACKHOLE,",
        text "     BLACKHOLE,",
+       text "     WHITEHOLE,",
         text "     THUNK,",
         text "     THUNK_1_0,",
         text "     THUNK_0_1,",