use mkReduceFun

haskell · Dec 18, 2021 · 11490db · 11490db
1 parent 6398739
commit 11490db
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/packages/backend-lalr/src/Happy/Backend/LALR/ProduceCode.lhs b/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