use mkReduceFun

Author: int-index

packages/backend-lalr/src/Happy/Backend/LALR/ProduceCode.lhs

@@ -916,7 +916,7 @@ directive determins the API of the provided function.
 >                               Just _  -> str "(\\(tokens, explist) -> happyError)"
 
 >    reduceArrElem n
->      = tupE [intE n, varE ("happyReduce_" ++ show n)]
+>      = tupE [intE n, varE (mkReduceFun n "")]
 
 -----------------------------------------------------------------------------
 -- Produce the parser entry and exit points