From 1befa19e222c0c44142696e4aaf7d942ae348653 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 11 Feb 2005 15:08:10 +0000
Subject: command vg

---
 src/GF/Shell/PShell.hs        | 3 ++-
 src/GF/Shell/ShellCommands.hs | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/GF/Shell')

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index 08ba2a4e1..dd797be5e 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -129,7 +129,8 @@ pCommand ws = case ws of
   "pxs" : []     -> aUnit CPrintCanonXMLStruct
   "px"  : []     -> aUnit CPrintCanonXML
   "pm"  : []     -> aUnit CPrintMultiGrammar
-  "sg" : []     -> aUnit CPrintSourceGrammar
+  "vg"  : []     -> aUnit CShowGrammarGraph
+  "sg"  : []     -> aUnit CPrintSourceGrammar
   "po"  : []     -> aUnit CPrintGlobalOptions
   "pl"  : []     -> aUnit CPrintLanguages
   "h"   : c : [] -> aUnit $ CHelp (Just (abbrevCommand c))
diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs
index be1137440..c28bcad48 100644
--- a/src/GF/Shell/ShellCommands.hs
+++ b/src/GF/Shell/ShellCommands.hs
@@ -73,6 +73,7 @@ data Command =
  | CPrintInformation I.Ident
  | CPrintMultiGrammar
  | CPrintSourceGrammar
+ | CShowGrammarGraph
  | CPrintGramlet 
  | CPrintCanonXML
  | CPrintCanonXMLStruct 
-- 
cgit v1.2.3