diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-10-30 14:42:29 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-10-30 14:42:29 +0000 |
| commit | a4194501fe2c60a19160c811c1a7818da5ce715e (patch) | |
| tree | 325d3212391469fa522fe304c1c411d1ea92168b /src/server | |
| parent | 5bc9e959d0bbc6f6e2e646d1cf1b72b335d32c87 (diff) | |
linref is now used by the linearizer. The visible change is that the 'l' command in the shell now can linearize discontinuous phrases
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/PGFService.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index fcda86e7c..1f4e2bdce 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -601,9 +601,9 @@ linearizeTabular pgf tos tree = vs = concat (PGF.tabularLinearizes pgf to t) linearizeAndBind pgf mto tree = - [(to,s,bs) | to<-langs, - let bs = PGF.bracketedLinearize pgf to (transfer to tree) - s = unwords . bind $ PGF.flattenBracketedString bs] + [(to,s,bss) | to<-langs, + let bss = PGF.bracketedLinearize pgf to (transfer to tree) + s = unwords . bind $ concatMap PGF.flattenBracketedString bss] where langs = if null mto then PGF.languages pgf else mto |