diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-02-27 20:45:54 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-02-27 20:45:54 +0000 |
| commit | 57f323e167600fb6b1df0d5a485fb5b7e768005a (patch) | |
| tree | 4b40df808a4e685ec5089985edce26cf3a2787d9 /src | |
| parent | e85fb4bf6994b405e7ef23055346ef338edadd5a (diff) | |
Print grammar names in translation exercise lists.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Shell.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |