X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fgenapply%2FGenApply.hs;fp=utils%2Fgenapply%2FGenApply.hs;h=e46b37afcf14c342fb7c3e52bf1b932c7b2ca466;hp=c42ccb181a1f287e33ad6d66485a5d810a0afece;hb=0731082288212fbc6d68204b609f201b8a79149a;hpb=1cb7a8702e066ee74a6687f7f896ed77d0c25d8a

diff --git a/utils/genapply/GenApply.hs b/utils/genapply/GenApply.hs
index c42ccb1..e46b37a 100644
--- a/utils/genapply/GenApply.hs
+++ b/utils/genapply/GenApply.hs
@@ -602,7 +602,7 @@ genApply regstatus args =
 
        text "default: {",
        nest 4 (
-         text "foreign \"C\" barf(\"" <> fun_ret_label <> text "\");"
+         text "foreign \"C\" barf(\"" <> fun_ret_label <> text "\") never returns;"
        ),
        text "}"