diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-03-14 12:11:18 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-03-14 12:11:18 +0000 |
| commit | f7ce8940fa0d53718eb30bfc7d0ef9320bafc673 (patch) | |
| tree | a018f006c071e2782baa2e4e86fc28dc57901d49 /src/GF/UseGrammar/Treebank.hs | |
| parent | 98fcad148e61d5a284d0fe1b095f90eab368d28f (diff) | |
ma -status; sep lines for l -all
Diffstat (limited to 'src/GF/UseGrammar/Treebank.hs')
| -rw-r--r-- | src/GF/UseGrammar/Treebank.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |