From b60b42ccefb3dba990fba7b2d4e3391008602756 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 20 Apr 2005 19:09:19 +0000
Subject: pg printnames

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

(limited to 'src/GF/UseGrammar/Custom.hs')

diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index b597447ef..f237f92ad 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/18 14:55:33 $ 
--- > CVS $Author: peb $
--- > CVS $Revision: 1.56 $
+-- > CVS $Date: 2005/04/20 20:09:19 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.57 $
 --
 -- A database for customizable GF shell commands. 
 --
@@ -240,6 +240,7 @@ customGrammarPrinter =
   ,(strCI "fullform",prFullForm . stateMorpho)
   ,(strCI "opts",    prOpts . stateOptions)
   ,(strCI "words",   unwords . stateGrammarWords)
+  ,(strCI "printnames", C.prPrintnamesGrammar . stateGrammarST)
 {- ----
    (strCI "gf",      prt  . st2grammar . stateGrammarST)  -- DEFAULT
   ,(strCI "canon",   showCanon "Lang" . stateGrammarST)
-- 
cgit v1.2.3