diff options
Diffstat (limited to 'src/GF/Shell.hs')
| -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 |