diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-14 07:31:53 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-14 07:31:53 +0000 |
| commit | 745f6ac83f207709127bbec22c3484ad06ec6907 (patch) | |
| tree | f5ae6b4df981f6c40289fca0a9cf0d10b7b77de0 /src/GF/Speech/TransformCFG.hs | |
| parent | 9e0dd0a41a9d386d4cc9ae6bab6fa2e1862e829f (diff) | |
restored CanonToGFCC as a wrapper of GFCC generation
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index 076477d90..545bc021c 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -16,7 +16,7 @@ module GF.Speech.TransformCFG where -import GF.Canon.CanonToGFCC (mkCanon2gfcc) +import GF.Canon.CanonToGFCC (canon2gfcc) import qualified GF.GFCC.Raw.AbsGFCCRaw as C import GF.GFCC.Macros (lookType,catSkeleton) import GF.GFCC.DataGFCC (GFCC) @@ -85,7 +85,7 @@ getStartCatCF :: Options -> StateGrammar -> String getStartCatCF opts sgr = getStartCat opts sgr ++ "{}.s" stateGFCC :: StateGrammar -> GFCC -stateGFCC = mkCanon2gfcc . stateGrammarST +stateGFCC = canon2gfcc noOptions . stateGrammarST -- * Grammar filtering |