hashirama/mdict-hs
hashirama/mdict-hs
Watch
1
0
Fork
You've already forked mdict-hs
 1
Code Issues 1 Pull requests Projects Releases Wiki Activity Actions

fix FFI

Browse source 
Signed-off-by: hashirama <hashirama@noreply.localhost>
This commit is contained in:
千住柱間 2026-01-20 03:27:06 +00:00
commit 60f4cc8216
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
MDict.hs
View file

@ -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 ()