From c86192273657fe17d4dfe246f0d850379b9e5866 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 24 Aug 2004 11:49:46 +0000
Subject: some var parser bug fixes

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

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

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index cb6d3ff18..27ceb19e0 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -209,9 +209,10 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = checkOptions st co >> case comm of
 ---- deprec!  CSetLocalFlag lang -> changeState (addLocalOptions lang opts0) sa
 
   CHelp (Just c) -> returnArg   (AString (txtHelpCommand c)) sa
-  CHelp _
-    | oElem showAll opts  -> returnArg   (AString txtHelpFile) sa
-    | otherwise           -> returnArg   (AString txtHelpFileSummary) sa
+  CHelp _ -> case opts0 of
+    Opts [o] | o == showAll -> returnArg   (AString txtHelpFile) sa
+    Opts [o]        -> returnArg   (AString (txtHelpCommand ('-':prOpt o))) sa
+    _               -> returnArg   (AString txtHelpFileSummary) sa
 
   CPrintGrammar       -> returnArg (AString (optPrintGrammar opts gro)) sa
   CPrintGlobalOptions -> justOutput (putStrLn  $ prShellStateInfo st) sa
-- 
cgit v1.2.3