diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2006-06-19 20:17:05 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2006-06-19 20:17:05 +0000 |
| commit | cb168e92e23d0f620b75f6119a4cb298360e6f21 (patch) | |
| tree | c407d5a2aa1bad5f218539fab79556eb8129d855 /src/GF/Parsing/MCFG/FastActive.hs | |
| parent | 694f6eb984c8f22fe042e210b0671062accba8c7 (diff) | |
Sync FCFG with the latest repo version
Diffstat (limited to 'src/GF/Parsing/MCFG/FastActive.hs')
| -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 |