From 8b3d6059c6c574aa9f45bd8b70af548785a29ff9 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sun, 12 Jul 2015 15:37:45 +0000
Subject: [PATCH] fixed missing do in the Haskell binding

---
 src/runtime/haskell-bind/PGF2.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc
index 3d9c44488..618976539 100644
--- 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