fixed missing do in the Haskell binding

2026-04-09 04:59:31 -06:00 · 2015-07-12 15:37:45 +00:00
parent 99a0b5a1d8
commit 8b3d6059c6
1 changed files with 1 additions and 1 deletions
--- a/src/runtime/haskell-bind/PGF2.hsc
+++ b/src/runtime/haskell-bind/PGF2.hsc
@@ -112,7 +112,7 @@ generateAll p cat =
  unsafePerformIO $
    do genPl  <- gu_new_pool
       exprPl <- gu_new_pool
-       enum   <- withCString cat $ \cat ->
+       enum   <- withCString cat $ \cat -> do
                   exn <- gu_new_exn genPl
                   pgf_generate_all (pgf p) cat exn genPl exprPl
       genFPl  <- newForeignPtr gu_pool_finalizer genPl