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