GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

bugfix in bracketedLinearize

Browse Source
This commit is contained in:
krangelov
2020-07-22 16:26:05 +02:00
parent 8bc4cc7187
commit 7229033e42
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1266,7 +1266,9 @@ withBracketLinFuncs ref exn f =
then writeIORef ref (stack, bs') then writeIORef ref (stack, bs')
else do cat <- peekUtf8CString c_cat else do cat <- peekUtf8CString c_cat
let fid = fromIntegral c_fid let fid = fromIntegral c_fid
ann <- peekUtf8CString c_ann ann <- if c_ann == nullPtr
then return ""
else peekUtf8CString c_ann
fun <- peekUtf8CString c_fun fun <- peekUtf8CString c_fun
writeIORef ref (stack, Bracket cat fid ann fun (reverse bs) : bs') writeIORef ref (stack, Bracket cat fid ann fun (reverse bs) : bs')