diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-03-31 16:30:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-03-31 16:30:44 +0000 |
| commit | 82fbc184b6cdb939e5630477d0839786cc19fb5e (patch) | |
| tree | 3132cdaf33a28d8ba43444ffd740a6fff75992c3 /src/GF/Shell.hs | |
| parent | cb046fea18b5e13805a451ce9b1d2430527b1d8e (diff) | |
added some generation facilities
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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] |