diff options
| -rw-r--r-- | utils/genprimopcode/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 0e7c815f44..3b30742f72 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 ----------------------- |