From 82fbc184b6cdb939e5630477d0839786cc19fb5e Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 31 Mar 2006 16:30:44 +0000
Subject: added some generation facilities

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

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

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 3af343bb2..bdbf6d62c 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -249,6 +249,10 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
        let p = optParseArgErrMsg opts gro x
        case p of
          Ok (ts,msg) 
+           | oElem (iOpt "fail") opts && null ts -> do
+                putStrLnFlush ("#FAIL:" +++ x) >> changeArg (const $ ATrms ts) sa
+           | oElem (iOpt "ambiguous") opts && length ts > 1 -> do
+                putStrLnFlush ("#AMBIGUOUS:" +++ x) >> changeArg (const $ ATrms ts) sa
            | oElem (iOpt "prob") opts -> do
                 let probs = stateProbs gro 
                 let tps = rankByScore [(t,computeProbTree probs t) | t <- ts]
-- 
cgit v1.2.3