msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Force evaluation in benchmark linearisation

Browse Source 
BangPatterns only does WHNF which is not sufficient, previous benchmark results are thus wrong
This commit is contained in:
John J. Camilleri
2021-02-18 21:01:30 +01:00
parent 5240749fad
commit 625386a14f
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/GrammarToLPGF.hs
View File

@@ -190,7 +190,7 @@ inlineParamAliases defs = if null aliases then defs else map rp' pdefs
rp' :: C.ParamDef -> C.ParamDef
rp' (C.ParamDef pid pids) = C.ParamDef pid (map rp'' pids)
rp' _ = error "inlineParamAliases called on ParamAliasDef"
rp' (C.ParamAliasDef _ _) = error "inlineParamAliases called on ParamAliasDef"
rp'' :: C.ParamValueDef -> C.ParamValueDef
rp'' (C.Param pid pids) = C.Param pid (map rp''' pids)