generation in jgf

src/GF/Shell/Commands.hs

@@ -325,7 +325,7 @@ mkRefineMenuAll env sstate =
     _ -> b
   ifShort = ifOpt sizeDisplay "short"
   ifTyped t = ifOpt typeDisplay "typed" t ""
-  prOrLinExp t = prt_ t ---- 
+  prOrLinExp t = err (const $ prt_ t) prOrLinTree $ annotateInState cgr t state
   prOrLinRef t = case t of
     G.Q m f  ->  printname env sstate (m,f) 
     G.QC m f ->  printname env sstate (m,f) 

src/GF/UseGrammar/Custom.hs

@@ -208,9 +208,8 @@ customTermCommand =
   ,(strCI "generate",   \g t -> let gr = grammar g
                                     cat = actCat $ tree2loc t --- not needed
                                 in
-                                  tree2termlistCommand gr
-                                    (generateTrees gr cat 2
-                                      Nothing . Just) t)
+                         [tr | t <- generateTrees gr cat 2 Nothing (Just t), 
+                               Ok tr <- [annotate gr $ MM.qualifTerm (absId g) t]])
 
   ,(strCI "typecheck",  \g t -> let gr = grammar g in
                                   err (const []) (return . const t)

src/Today.hs

@@ -1 +1 @@
-module Today where today = "Sun May  2 11:14:33 CEST 2004"
+module Today where today = "Sun May  2 15:21:39 CEST 2004"