From 5a480fac520db1bab6f1336bee9b2031dbd36cab Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 13 Dec 2005 21:03:56 +0000
Subject: Added semi-working speech_input command.

---
 src/GF/Shell.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Shell.hs')

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 541f2ea66..eb13cbdf7 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -348,6 +348,7 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
   CWriteFile file  -> justOutputArg opts (writeFile file) sa
   CAppendFile file -> justOutputArg opts (appendFile file) sa
   CSpeakAloud      -> justOutputArg opts (speechGenerate opts) sa
+  CSpeechInput     -> returnArgIO (speechInput opts gro >>= return . AString) sa
   CSystemCommand s -> case a of
     AUnit -> justOutput opts (system s >> return ()) sa
     _     -> systemArg  opts a s sa 
-- 
cgit v1.2.3