msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

ma -status; sep lines for l -all

Browse Source
This commit is contained in:
aarne
2007-03-14 12:11:18 +00:00
parent 72c1457bab
commit 0e28aef3b5
9 changed files with 33 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/UseGrammar/Treebank.hs
View File

@@ -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