diff options
| author | krasimir <krasimir@chalmers.se> | 2010-01-05 07:05:41 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-01-05 07:05:41 +0000 |
| commit | 3ed19a482e796b0a62d234ec9ffd1981d5fee64e (patch) | |
| tree | 93e3cf1a0643480f704bd5243585a090678b04b2 /src/compiler/GF/Speech | |
| parent | 354269e17c63d6e750fb5626adac43b92479506a (diff) | |
printnames are now kept as String instead of Term in PGF
Diffstat (limited to 'src/compiler/GF/Speech')
| -rw-r--r-- | src/compiler/GF/Speech/VoiceXML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Speech/VoiceXML.hs b/src/compiler/GF/Speech/VoiceXML.hs index 134964062..fb25d6a1e 100644 --- a/src/compiler/GF/Speech/VoiceXML.hs +++ b/src/compiler/GF/Speech/VoiceXML.hs @@ -16,7 +16,7 @@ import GF.Speech.SRG (getSpeechLanguage) import PGF.CId import PGF.Data import PGF.Macros -import PGF.Linearize (realize) +import PGF.Linearize (showPrintName) import Control.Monad (liftM) import Data.List (isPrefixOf, find, intersperse) @@ -55,7 +55,7 @@ catQuestions :: PGF -> CId -> [CId] -> CatQuestions catQuestions pgf cnc cats = [(c,catQuestion pgf cnc c) | c <- cats] catQuestion :: PGF -> CId -> CId -> String -catQuestion pgf cnc cat = realize (lookPrintName pgf cnc cat) +catQuestion pgf cnc cat = showPrintName pgf cnc cat {- |