From 60f4cc8216ba102d4b186e1ccdb0146fd1fdd0bf Mon Sep 17 00:00:00 2001 From: hashirama Date: Tue, 20 Jan 2026 03:27:06 +0000 Subject: [PATCH] fix FFI Signed-off-by: hashirama --- MDict.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/MDict.hs b/MDict.hs index ec4fc26..406bbba 100644 --- a/MDict.hs +++ b/MDict.hs @@ -75,8 +75,8 @@ isMDDFile path = map toLower (takeExtension path) == ".mdd" -- FFI imports foreign import ccall "mdict_init" c_mdict_init :: CString -> IO (Ptr ()) -foreign import ccall "mdict_destory" c_mdict_destroy :: Ptr () -> IO CInt -foreign import ccall "&mdict_destory" raw_mdict_destroy_finalizer :: FunPtr (Ptr () -> IO CInt) +foreign import ccall "mdict_destroy" c_mdict_destroy :: Ptr () -> IO CInt +foreign import ccall "&mdict_destroy" raw_mdict_destroy_finalizer :: FunPtr (Ptr () -> IO CInt) foreign import ccall "mdict_lookup" c_mdict_lookup :: Ptr () -> CString -> Ptr (Ptr CChar) -> IO () foreign import ccall "mdict_atomic_lookup" c_mdict_atomic_lookup :: CString -> CString -> IO CString foreign import ccall "mdict_locate" c_mdict_locate :: Ptr () -> CString -> Ptr (Ptr CChar) -> CInt -> IO ()