diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-20 09:48:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-20 09:48:50 +0000 |
| commit | 8bf5ff0a9423be908502a0ad4c5f91ff00f342e4 (patch) | |
| tree | 8779d31df9b96888fd802c2b1eaa29055ba2bdec /src/GF/Canon/GFCC/FCFGParsing.hs | |
| parent | 3707eb45762932b22d96ad03163c46dd1ba9fd8d (diff) | |
embedded parser in MultiGrammar in GFCCAPI
Diffstat (limited to 'src/GF/Canon/GFCC/FCFGParsing.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/FCFGParsing.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Canon/GFCC/FCFGParsing.hs b/src/GF/Canon/GFCC/FCFGParsing.hs index e5258764c..dfedc6622 100644 --- a/src/GF/Canon/GFCC/FCFGParsing.hs +++ b/src/GF/Canon/GFCC/FCFGParsing.hs @@ -1,4 +1,4 @@ -module GF.Canon.GFCC.FCFGParsing (parserLang) where +module GF.Canon.GFCC.FCFGParsing (parserLang,buildPInfo,FCFPInfo) where import GF.Canon.GFCC.DataGFCC import GF.Canon.GFCC.AbsGFCC @@ -52,7 +52,7 @@ wordsCFTok :: CFTok -> [String] wordsCFTok = return ---- -type FCFPInfo = PF.FCFPInfo FCat FName Token +type FCFPInfo = PF.FCFPInfo FCat FName String buildPInfo :: FGrammar -> FCFPInfo buildPInfo fcfg = PF.buildFCFPInfo grammarLexer fcfg where @@ -130,7 +130,7 @@ tree2term (TMeta) = Macros.mkMeta 0 -- conversion and unification of forests -- simplest implementation -applyProfileToForest :: SyntaxForest Name -> [SyntaxForest Fun] +applyProfileToForest :: SyntaxForest FName -> [SyntaxForest Fun] applyProfileToForest (FNode name@(Name fun profile) children) | isCoercionF name = concat chForests | otherwise = [ FNode fun chForests | not (null chForests) ] |