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

readExpr needs an additional call to mask_

Browse Source
This commit is contained in:
krangelov
2021-08-31 20:02:49 +02:00
parent 3c8e96c3cd
commit 6c06a9f295
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -280,7 +280,8 @@ readExpr :: String -> Maybe Expr
readExpr str = readExpr str =
unsafePerformIO $ unsafePerformIO $
withText str $ \c_str -> withText str $ \c_str ->
withForeignPtr unmarshaller $ \u -> do withForeignPtr unmarshaller $ \u ->
mask_ $ do
c_expr <- pgf_read_expr c_str u c_expr <- pgf_read_expr c_str u
if c_expr == castPtrToStablePtr nullPtr if c_expr == castPtrToStablePtr nullPtr
then return Nothing then return Nothing