diff options
Diffstat (limited to 'src/GF/Parsing/MCFG')
| -rw-r--r-- | src/GF/Parsing/MCFG/FastActive.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Parsing/MCFG/FastActive.hs b/src/GF/Parsing/MCFG/FastActive.hs index de33172d2..0a8e24b55 100644 --- a/src/GF/Parsing/MCFG/FastActive.hs +++ b/src/GF/Parsing/MCFG/FastActive.hs @@ -39,8 +39,9 @@ import Data.Array -- parse :: (Ord c, Ord n, Ord l, Ord t) => String -> MCFParser c n l t parse strategy pinfo starts = - [ Abs (cat, found) (zip rhs rrecs) fun | - Final (Abs cat rhs fun) found rrecs <- listXChartFinal chart ] + accumAssoc groupSyntaxNodes $ + [ ((cat, found), SNode fun (zip rhs rrecs)) | + Final (Abs cat rhs fun) found rrecs <- listXChartFinal chart ] where chart = process strategy pinfo axioms emptyXChart -- axioms | isBU strategy = terminal pinfo toks ++ initialScan pinfo toks |