Print grammar names in translation exercise lists.

2006-02-27 20:45:54 +00:00
parent d3aac86052
commit 136535ef6d
1 changed files with 3 additions and 1 deletions
--- 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