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

handle failed linearization in tabularLinearize

Browse Source
This commit is contained in:
Krasimir Angelov
2022-01-09 07:37:03 +01:00
parent f3d54a02e3
commit 99e639c861
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -671,7 +671,10 @@ tabularLinearize c e =
withForeignPtr (c_revision c) $ \c_revision -> withForeignPtr (c_revision c) $ \c_revision ->
bracket (newStablePtr e) freeStablePtr $ \c_e -> bracket (newStablePtr e) freeStablePtr $ \c_e ->
withForeignPtr marshaller $ \m -> withForeignPtr marshaller $ \m ->
bracket (withPgfExn "tabularLinearize" (pgf_tabular_linearize (c_db c) c_revision c_e nullPtr m)) free peekTable bracket (withPgfExn "tabularLinearize" (pgf_tabular_linearize (c_db c) c_revision c_e nullPtr m)) free $ \c_texts -> do
if c_texts == nullPtr
then []
else peekTable c_texts
where where
peekTable c_texts = do peekTable c_texts = do
c_field <- peekElemOff c_texts 0 c_field <- peekElemOff c_texts 0