summaryrefslogtreecommitdiff
path: root/src/GF/Parsing/MCFG/PInfo.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/GF/Parsing/MCFG/PInfo.hs')
-rw-r--r--src/GF/Parsing/MCFG/PInfo.hs4
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)])