diff options
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |