From f7ce8940fa0d53718eb30bfc7d0ef9320bafc673 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 14 Mar 2007 12:11:18 +0000 Subject: ma -status; sep lines for l -all --- src/GF/UseGrammar/Treebank.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/UseGrammar/Treebank.hs') diff --git a/src/GF/UseGrammar/Treebank.hs b/src/GF/UseGrammar/Treebank.hs index 952b71877..d353efc8a 100644 --- a/src/GF/UseGrammar/Treebank.hs +++ b/src/GF/UseGrammar/Treebank.hs @@ -241,9 +241,9 @@ linearize opts mgr lang = lin where lin | oElem showRecord opts = err id id . liftM prt . linearizeNoMark cgr zlang | oElem tableLin opts = - err id id . liftM (unlines . map untok . prLinTable True) . allLinTables cgr zlang + err id id . liftM (unlines . map untok . prLinTable True) . allLinTables True cgr zlang | oElem showAll opts = - err id id . liftM (unlines . map untok . prLinTable False) . allLinTables cgr zlang + err id id . liftM (unlines . map untok . prLinTable False) . allLinTables False cgr zlang | otherwise = untok . linTree2string noMark cgr zlang -- cgit v1.2.3