X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fgenprimopcode%2FMain.hs;h=3b30742f7291a6b5b3f37bd80b0e92e96d06bbdc;hp=0e7c815f44d16b9e0b6b47a7f321bdea5827dc32;hb=8229ae19d86dddc08f40f4d934bf942e0bdfe99c;hpb=02de8fdc3a3dc68071777366ca978e2d0db752e8

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index 0e7c815..3b30742 100644
--- a/utils/genprimopcode/Main.hs
+++ b/utils/genprimopcode/Main.hs
@@ -408,7 +408,7 @@ gen_switch_from_attribs attrib_name fn_name (Info defaults entries)
             Nothing -> error ("gen_switch_from: " ++ attrib_name)
             Just xx 
                -> unlines alternatives
-                  ++ fn_name ++ " other = " ++ getAltRhs xx ++ "\n"
+                  ++ fn_name ++ " _ = " ++ getAltRhs xx ++ "\n"
 
 ------------------------------------------------------------------
 -- Create PrimOpInfo text from PrimOpSpecs -----------------------