diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-03 22:57:20 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-03 22:57:20 +0000 |
| commit | 7577149241e584b9cddfb05d9aef9ade10d93554 (patch) | |
| tree | 019ab676fc9be960bf68d3e8f301202daa9d99df /src | |
| parent | bf8b078a7aa3cc44edb09374d37fa4f744f5fe81 (diff) | |
SISR: constants from conversion=finite now produce abstract syntax nodes instead of strings.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index 31017c61f..57563af19 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -72,7 +72,7 @@ cfgToCFRules cfg = nameToTerm (Name f prs) = CFObj f (map profileToTerm prs) profileToTerm (Unify []) = CFMeta profileToTerm (Unify xs) = CFRes (last xs) -- FIXME: unify - profileToTerm (Constant f) = CFConst (maybe "?" prIdent (forestName f)) + profileToTerm (Constant f) = maybe CFMeta (\x -> CFObj x []) (forestName f) -- | Remove productions which use categories which have no productions removeEmptyCats :: CFRules -> CFRules |