From 9db352b2bb47d9530959625ab15601c22e01300f Mon Sep 17 00:00:00 2001 From: krangelov Date: Sat, 14 Aug 2021 18:51:16 +0200 Subject: [PATCH] bugfix --- src/runtime/haskell/PGF2/FFI.hsc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/runtime/haskell/PGF2/FFI.hsc b/src/runtime/haskell/PGF2/FFI.hsc index 81ddc71d5..fcf8c1c36 100644 --- a/src/runtime/haskell/PGF2/FFI.hsc +++ b/src/runtime/haskell/PGF2/FFI.hsc @@ -50,10 +50,10 @@ foreign import ccall "&pgf_free" foreign import ccall "pgf_abstract_name" pgf_abstract_name :: Ptr PgfPGF -> IO (Ptr PgfText) -foreign import ccall "pgf/expr.h pgf_read_expr" +foreign import ccall "pgf_read_expr" pgf_read_expr :: Ptr PgfText -> Ptr PgfUnmarshaller -> IO (StablePtr Expr) -foreign import ccall "pgf/expr.h pgf_read_type" +foreign import ccall "pgf_read_type" pgf_read_type :: Ptr PgfText -> Ptr PgfUnmarshaller -> IO (StablePtr Type) type ItorCallback = Ptr PgfItor -> Ptr PgfText -> IO () @@ -273,7 +273,7 @@ mkMarshaller = do callLStrFun fun u c_s LInt n -> do fun <- (#peek PgfUnmarshallerVtbl, lint) vtbl callLIntFun fun u (fromIntegral n) - LFlt d -> do fun <- (#peek PgfUnmarshallerVtbl, lint) vtbl + LFlt d -> do fun <- (#peek PgfUnmarshallerVtbl, lflt) vtbl callLFltFun fun u (realToFrac d) matchExpr this u c_expr = do