diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-20 09:10:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-20 09:10:37 +0000 |
| commit | 3707eb45762932b22d96ad03163c46dd1ba9fd8d (patch) | |
| tree | f18b766c2ca32a5f21c77a40929a170a7814dff5 /src/GF/Canon/GFCC/GFCCAPI.hs | |
| parent | ef389db5694a52eb9c171fe76b952f37216e4c09 (diff) | |
refactored FCFG parsing to fit in GFCC shell
Diffstat (limited to 'src/GF/Canon/GFCC/GFCCAPI.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/GFCCAPI.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Canon/GFCC/GFCCAPI.hs b/src/GF/Canon/GFCC/GFCCAPI.hs index e815697d7..5630f97ea 100644 --- a/src/GF/Canon/GFCC/GFCCAPI.hs +++ b/src/GF/Canon/GFCC/GFCCAPI.hs @@ -21,6 +21,7 @@ import GF.Canon.GFCC.AbsGFCC import GF.Canon.GFCC.ParGFCC import GF.Canon.GFCC.PrintGFCC import GF.Canon.GFCC.ErrM +import GF.Canon.GFCC.FCFGParsing --import GF.Data.Operations --import GF.Infra.UseIO import qualified Data.Map as Map @@ -70,7 +71,9 @@ file2grammar f = linearize mgr lang = GF.Canon.GFCC.DataGFCC.linearize mgr (CId lang) -parse mgr lang cat s = [] +parse mgr lang cat s = + err error id $ parserLang mgr (CId lang) (CId cat) (words s) + {- map tree2exp . errVal [] . |