From 293a0eb98879646643d6f3919f80cd83066a8b1b Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 13 Apr 2006 13:32:58 +0000
Subject: Added -startcat flag to the pg command.

---
 src/GF/System/ATKSpeechInput.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/GF/System')

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
 
-- 
cgit v1.2.3