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

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 "}"