diff options
Diffstat (limited to 'src/runtime/haskell')
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index 70c1f2f7f..c82d9e47e 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -802,7 +802,9 @@ getCncDepLabels = Just new -> return new _ -> lookup "*" (map snd rules) ) - getToks = words . map (\c -> if elem c "\"," then ' ' else c) + getToks = map unquote . filter (/=",") . toks + toks s = case lex s of [(t,"")] -> [t] ; [(t,cc)] -> t:toks cc ; _ -> [] + unquote s = case s of '"':cc@(_:_) | last cc == '"' -> init cc ; _ -> s printCoNLL :: CoNLL -> String printCoNLL = unlines . map (concat . intersperse "\t") |