From 136535ef6d5dfc2cb430d6e481cb6a3cde167a76 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Mon, 27 Feb 2006 20:45:54 +0000
Subject: [PATCH] Print grammar names in translation exercise lists.

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

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 1c7f4527e..9eab757b7 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -342,7 +342,9 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
     warnDiscont opts
     let n = optIntOrN opts flagNumber 10 
     qs <- transTrainList opts (sgr il) (sgr ol) (toInteger n)
-    returnArg (AString $ foldr (+++++) [] [unlines (s:ss) | (s,ss) <- qs]) sa
+    let hdr = unlines ["# From: " ++ prIdent il,
+                       "# To: " ++ prIdent ol]
+    returnArg (AString $ hdr ++++ foldr (+++++) [] [unlines (s:ss) | (s,ss) <- qs]) sa
 
   CMorphoQuiz -> do
     warnDiscont opts