From 3707eb45762932b22d96ad03163c46dd1ba9fd8d Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 20 Sep 2007 09:10:37 +0000
Subject: refactored FCFG parsing to fit in GFCC shell

---
 src/GF/Canon/GFCC/GFCCAPI.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/GF/Canon/GFCC/GFCCAPI.hs')

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 [] . 
-- 
cgit v1.2.3