From a22871d07485821dac45a03380f77bdb28240ce6 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 11 Jun 2007 07:49:30 +0000 Subject: initial check for unknown words in parsing --- src/GF/Shell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Shell.hs') diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 29a4b6c23..dd8267a91 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -254,7 +254,7 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com | otherwise -> parse $ prCommandArg a where parse x = do - warnDiscont opts + warnDiscont opts let p = optParseArgErrMsg opts gro x case p of Ok (ts,msg) -- cgit v1.2.3