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/Parsing/MCFG/PInfo.hs | |
| parent | 98d0af8d73ee56fdb9c64626e173eec0ebbce5e7 (diff) | |
code polishing for the literal category support
Diffstat (limited to 'src/GF/Parsing/MCFG/PInfo.hs')
| -rw-r--r-- | src/GF/Parsing/MCFG/PInfo.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/GF/Parsing/MCFG/PInfo.hs b/src/GF/Parsing/MCFG/PInfo.hs index 5a61a4edf..56119dcec 100644 --- a/src/GF/Parsing/MCFG/PInfo.hs +++ b/src/GF/Parsing/MCFG/PInfo.hs @@ -30,9 +30,7 @@ import GF.Parsing.MCFG.Range type MCFParser c n l t = MCFPInfo c n l t -> [c] -> Input t - -> MCFChart c n l - -type MCFChart c n l = [Abstract (c, RangeRec l) n] + -> SyntaxChart n (c, RangeRec l) makeFinalEdge :: c -> l -> (Int, Int) -> (c, RangeRec l) makeFinalEdge cat lbl bnds = (cat, [(lbl, makeRange bnds)]) |