From af1a3a2473747942dcec647a42e5724fcb21d1b9 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 3 Jan 2008 17:10:05 +0000
Subject: Store FCFPInfo (all information needed for FCFG parsing) in GFCC
 files, and in the internal DataGFCC.GFCC structure. The parsing information
 format is still in flux.

---
 src/GF/Canon/CanonToGFCC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Canon')

diff --git a/src/GF/Canon/CanonToGFCC.hs b/src/GF/Canon/CanonToGFCC.hs
index 8d5656aa4..044ea3669 100644
--- a/src/GF/Canon/CanonToGFCC.hs
+++ b/src/GF/Canon/CanonToGFCC.hs
@@ -25,7 +25,7 @@ source2gfcc opts gf =
   let 
     (abs,gfcc) = mkCanon2gfcc opts (gfcabs gf) gf
     gfcc1 = maybe undefined id $ checkGFCCmaybe gfcc
-  in if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1
+  in addParsers $ if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1
 
 gfcabs gfc = 
   prt $ head $ M.allConcretes gfc $ maybe (error "no abstract") id $ 
-- 
cgit v1.2.3