diff options
Diffstat (limited to 'src/PGF/ShowLinearize.hs')
| -rw-r--r-- | src/PGF/ShowLinearize.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/PGF/ShowLinearize.hs b/src/PGF/ShowLinearize.hs index 87538201c..26fddd6c2 100644 --- a/src/PGF/ShowLinearize.hs +++ b/src/PGF/ShowLinearize.hs @@ -4,7 +4,8 @@ module PGF.ShowLinearize ( recordLinearize, termLinearize, tabularLinearize, - allLinearize + allLinearize, + markLinearize ) where import PGF.CId @@ -89,6 +90,10 @@ recLinearize pgf lang tree = mkRecord typ $ linTree pgf lang tree where termLinearize :: PGF -> CId -> Tree -> String termLinearize pgf lang = show . linTree pgf lang +-- show bracketed markup with references to tree structure +markLinearize :: PGF -> CId -> Tree -> String +markLinearize pgf lang t = concat $ take 1 $ linearizesMark pgf lang t + -- for Morphology: word, lemma, tags collectWords :: PGF -> CId -> [(String, [(String,String)])] |