diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-04-22 12:14:39 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-04-22 12:14:39 +0000 |
| commit | 4394b8a3bc01386c83624bb51122ce81078fbed8 (patch) | |
| tree | 9c81dd16f2f4aa1b8f6d2fe2466272ea85d51b49 | |
| parent | b1b68bf6b427bbe33772f90beaf6580fadd62a76 (diff) | |
a bit more informative error message in GrammarToPGF
| -rw-r--r-- | src/compiler/GF/Compile/GrammarToPGF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs index e10a2b13b..5ec7f9774 100644 --- a/src/compiler/GF/Compile/GrammarToPGF.hs +++ b/src/compiler/GF/Compile/GrammarToPGF.hs @@ -261,7 +261,7 @@ genCncFuns gr am cm seqs0 cdefs fid_cnt cnccats = mkFId (_,cat) fid0 = case Map.lookup (i2i cat) cnccats of Just (C.CncCat s e _) -> s+fid0 - Nothing -> error "GrammarToPGF.mkFId failed" + Nothing -> error ("GrammarToPGF.mkFId: missing category "++showIdent cat) mkCtxt lindefs (_,cat) = case Map.lookup (i2i cat) cnccats of |