diff options
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/CanonToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 $ |