bugfix in bracketedLinearize

2026-04-13 06:49:31 -06:00 · 2020-07-22 16:26:05 +02:00
parent 8bc4cc7187
commit 7229033e42
1 changed files with 3 additions and 1 deletions
--- a/src/runtime/haskell-bind/PGF2.hsc
+++ b/src/runtime/haskell-bind/PGF2.hsc
@@ -1266,7 +1266,9 @@ withBracketLinFuncs ref exn f =
        then writeIORef ref (stack, bs')
        else do cat <- peekUtf8CString c_cat
                let fid    = fromIntegral c_fid
-                ann <- peekUtf8CString c_ann
+                ann <- if c_ann == nullPtr
+                         then return ""
+                         else peekUtf8CString c_ann
                fun <- peekUtf8CString c_fun
                writeIORef ref (stack, Bracket cat fid ann fun (reverse bs) : bs')