diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-08 15:15:23 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-08 15:15:23 +0200 |
| commit | 71e6562eaa0efe417ff80c723aa8d582ba716d53 (patch) | |
| tree | eb8d28f0686cb78b2969a4e553ae3889ae49b7d2 /src/runtime/haskell-bind/PGF2/Expr.hsc | |
| parent | 16172be940c3587007d1f374fb5f369dcc5a6618 (diff) | |
an initial sketch for PGF building API in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2/Expr.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/Expr.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell-bind/PGF2/Expr.hsc b/src/runtime/haskell-bind/PGF2/Expr.hsc index a03a24be3..90f702462 100644 --- a/src/runtime/haskell-bind/PGF2/Expr.hsc +++ b/src/runtime/haskell-bind/PGF2/Expr.hsc @@ -51,7 +51,7 @@ mkAbs bind_type var (Expr body bodyTouch) = exprFPl <- newForeignPtr gu_pool_finalizer exprPl return (Expr c_expr (bodyTouch >> touchForeignPtr exprFPl)) where - cbind_type = + cbind_type = case bind_type of Explicit -> (#const PGF_BIND_TYPE_EXPLICIT) Implicit -> (#const PGF_BIND_TYPE_IMPLICIT) |