diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2022-07-16 20:29:36 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2022-07-16 20:29:36 +0200 |
| commit | a42cec21071de72806bedd2fac985fe2a1356db3 (patch) | |
| tree | 4361ffcc563e62e5da5700c8844b5fbfa8d3844c /src/runtime/haskell-bind | |
| parent | 4d446fcd3f9a252462c06049a15d4c4244f77f04 (diff) | |
support for BIND tokens in the Python bindings
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 38fae67ef..35db9b9dc 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -1026,7 +1026,10 @@ complete lang (Type ctype _) sent pfx = touchConcr lang return [] else do - tok <- peekUtf8CString =<< (#peek PgfTokenProb, tok) cmpEntry + p_tok <- (#peek PgfTokenProb, tok) cmpEntry + tok <- if p_tok == nullPtr + then return "&+" + else peekUtf8CString p_tok cat <- peekUtf8CString =<< (#peek PgfTokenProb, cat) cmpEntry fun <- peekUtf8CString =<< (#peek PgfTokenProb, fun) cmpEntry prob <- (#peek PgfTokenProb, prob) cmpEntry |