GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-13 05:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

handle nonExist in parse the tree visualization and reclaim memory

Browse Source
This commit is contained in:
Krasimir Angelov
2023-02-23 14:19:48 +01:00
parent 9d330b6fb2
commit 57126f6d28
3 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell/PGF2.hsc
View File

@@ -1179,7 +1179,9 @@ graphvizParseTree c opts e =
withForeignPtr marshaller $ \m ->
withGraphvizOptions opts $ \c_opts ->
bracket (withPgfExn "graphvizParseTree" (pgf_graphviz_parse_tree (c_db c) c_revision c_e nullPtr m c_opts)) free $ \c_text ->
peekText c_text
if c_text == nullPtr
then return ""
else peekText c_text
graphvizWordAlignment :: [Concr] -> GraphvizOptions -> Expr -> String
graphvizWordAlignment cs opts e = error "TODO: graphvizWordAlignment"