From 31b5e550b7ee84ad66b1c3a303d29380cee8931c Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 8 Sep 2017 23:21:40 +0200 Subject: the Haskell binding should be more careful with the matching types in C --- src/runtime/haskell-bind/PGF2/Internal.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/runtime/haskell-bind/PGF2/Internal.hsc') diff --git a/src/runtime/haskell-bind/PGF2/Internal.hsc b/src/runtime/haskell-bind/PGF2/Internal.hsc index bd64c358e..f9b4c5331 100644 --- a/src/runtime/haskell-bind/PGF2/Internal.hsc +++ b/src/runtime/haskell-bind/PGF2/Internal.hsc @@ -376,7 +376,7 @@ dTyp hypos cat es = return (B (Type ptr touch)) where (Builder pool touch) = ?builder - n_exprs = fromIntegral (length es) :: CInt + n_exprs = fromIntegral (length es) :: CSizeT pokeHypos ptr [] = return () pokeHypos ptr ((bind_type,var,B (Type ty _)):hypos) = do -- cgit v1.2.3