mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 19:42:50 -06:00
fixed missing do in the Haskell binding
This commit is contained in:
@@ -112,7 +112,7 @@ generateAll p cat =
|
|||||||
unsafePerformIO $
|
unsafePerformIO $
|
||||||
do genPl <- gu_new_pool
|
do genPl <- gu_new_pool
|
||||||
exprPl <- gu_new_pool
|
exprPl <- gu_new_pool
|
||||||
enum <- withCString cat $ \cat ->
|
enum <- withCString cat $ \cat -> do
|
||||||
exn <- gu_new_exn genPl
|
exn <- gu_new_exn genPl
|
||||||
pgf_generate_all (pgf p) cat exn genPl exprPl
|
pgf_generate_all (pgf p) cat exn genPl exprPl
|
||||||
genFPl <- newForeignPtr gu_pool_finalizer genPl
|
genFPl <- newForeignPtr gu_pool_finalizer genPl
|
||||||
|
|||||||
Reference in New Issue
Block a user