From 71e6562eaa0efe417ff80c723aa8d582ba716d53 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 8 Sep 2017 15:15:23 +0200 Subject: an initial sketch for PGF building API in the Haskell binding --- src/runtime/haskell-bind/PGF2/Expr.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/runtime/haskell-bind/PGF2/Expr.hsc') 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) -- cgit v1.2.3