diff options
Diffstat (limited to 'src/GF/System')
| -rw-r--r-- | src/GF/System/ATKSpeechInput.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/GF/System/ATKSpeechInput.hs b/src/GF/System/ATKSpeechInput.hs index 2b46915f5..2e9e5c0a1 100644 --- a/src/GF/System/ATKSpeechInput.hs +++ b/src/GF/System/ATKSpeechInput.hs @@ -110,7 +110,6 @@ recognizeSpeech :: Ident -- ^ Grammar name -> IO [String] recognizeSpeech name language cfg start number = do - -- FIXME: use cat let slf = slfPrinter name start cfg n = prIdent name hmmName = "hmm_" ++ language @@ -119,10 +118,10 @@ recognizeSpeech name language cfg start number = recName = "rec_" ++ language ++ "_" ++ n writeFile "debug.net" slf initATK language - hPutStrLn stderr "Loading grammar..." + hPutStrLn stderr $ "Loading grammar " ++ n ++ " ..." loadGrammarString slfName slf createRecognizer recName hmmName dictName slfName - hPutStrLn stderr "Listening..." + hPutStrLn stderr $ "Listening in category " ++ start ++ "..." s <- replicateM number (recognize recName) return s |