the Haskell binding should be more careful with the matching types in C

2017-09-08 23:21:40 +02:00
parent 527d97fdd2
commit 31b5e550b7
4 changed files with 42 additions and 31 deletions
--- 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