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

diff --git a/utils/genapply/GenApply.hs b/utils/genapply/GenApply.hs
index c42ccb1..fe792a1 100644
--- a/utils/genapply/GenApply.hs
+++ b/utils/genapply/GenApply.hs
@@ -1,4 +1,10 @@
 {-# OPTIONS -cpp -fglasgow-exts #-}
+{-# OPTIONS_GHC -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/WorkingConventions#Warnings
+-- for details
 module Main(main) where
 
 #include "../../includes/ghcconfig.h"
@@ -602,7 +608,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 "}"