diff options
| author | krasimir <krasimir@chalmers.se> | 2015-07-12 15:37:45 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-07-12 15:37:45 +0000 |
| commit | aa6b6d3155137c72ef8dbe58a81abb8998a96975 (patch) | |
| tree | f205dc96683dd08bd3d8bef32ee191c09e5371c4 /src/runtime/haskell-bind | |
| parent | 192b1cc01897906f67e15a0046897eb5fecbe002 (diff) | |
fixed missing do in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
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 |