diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2006-06-08 21:23:29 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2006-06-08 21:23:29 +0000 |
| commit | 694f6eb984c8f22fe042e210b0671062accba8c7 (patch) | |
| tree | 32faab2fafad6a46a4f2c2b1321dd51634749c1e /src/GF/Formalism/CFG.hs | |
| parent | 98d0af8d73ee56fdb9c64626e173eec0ebbce5e7 (diff) | |
code polishing for the literal category support
Diffstat (limited to 'src/GF/Formalism/CFG.hs')
| -rw-r--r-- | src/GF/Formalism/CFG.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Formalism/CFG.hs b/src/GF/Formalism/CFG.hs index 2eb090131..c38adb4e2 100644 --- a/src/GF/Formalism/CFG.hs +++ b/src/GF/Formalism/CFG.hs @@ -33,8 +33,8 @@ type CFChart c n t = CFGrammar (Edge c) n t -- building syntax charts from grammars grammar2chart :: (Ord n, Ord e) => CFGrammar e n t -> SyntaxChart n e -grammar2chart cfchart = accumAssoc groupPairs $ - [ (lhs, (name, filterCats rhs)) | +grammar2chart cfchart = accumAssoc groupSyntaxNodes $ + [ (lhs, SNode name (filterCats rhs)) | CFRule lhs rhs name <- cfchart ] |