diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-08 23:21:40 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-08 23:21:40 +0200 |
| commit | 31b5e550b7ee84ad66b1c3a303d29380cee8931c (patch) | |
| tree | becded75e233df3635c003be863dfddff5e7586b /src/runtime/haskell-bind/PGF2/Internal.hsc | |
| parent | 527d97fdd237ac4c471e6612e246a6752cb8638d (diff) | |
the Haskell binding should be more careful with the matching types in C
Diffstat (limited to 'src/runtime/haskell-bind/PGF2/Internal.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/Internal.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
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 |