From 1f8d565a1900c668cdb497b6cf17396551ee00f5 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 7 Nov 2023 07:19:21 -0800 Subject: [PATCH] add_define_ownership() should be a safe call Summary: Trying to fix some timeouts during deriving on the incremental base DB. Reviewed By: pepeiborra Differential Revision: D51065406 fbshipit-source-id: de74909e16e3ea874d9d89b89716a10e3b6dc92d --- glean/db/Glean/Database/Storage/RocksDB.hs | 2 +- glean/hs/Glean/RTS/Foreign/Ownership.hsc | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/glean/db/Glean/Database/Storage/RocksDB.hs b/glean/db/Glean/Database/Storage/RocksDB.hs index a71befae9..736c67328 100644 --- a/glean/db/Glean/Database/Storage/RocksDB.hs +++ b/glean/db/Glean/Database/Storage/RocksDB.hs @@ -403,7 +403,7 @@ foreign import ccall unsafe glean_rocksdb_get_ownership -> Ptr (Ptr Ownership) -> IO CString -foreign import ccall unsafe glean_rocksdb_add_define_ownership +foreign import ccall safe glean_rocksdb_add_define_ownership :: Ptr (Database RocksDB) -> Ptr DefineOwnership -> IO CString diff --git a/glean/hs/Glean/RTS/Foreign/Ownership.hsc b/glean/hs/Glean/RTS/Foreign/Ownership.hsc index 6c0fa4490..ecafa7e01 100644 --- a/glean/hs/Glean/RTS/Foreign/Ownership.hsc +++ b/glean/hs/Glean/RTS/Foreign/Ownership.hsc @@ -316,18 +316,18 @@ foreign import ccall unsafe glean_new_define_ownership foreign import ccall unsafe "&glean_define_ownership_free" glean_define_ownership_free :: FunPtr (Ptr DefineOwnership -> IO ()) -foreign import ccall unsafe glean_define_ownership_subst +foreign import ccall safe glean_define_ownership_subst :: Ptr DefineOwnership -> Ptr Subst -> IO CString -foreign import ccall unsafe glean_define_ownership_sort_by_owner +foreign import ccall safe glean_define_ownership_sort_by_owner :: Ptr DefineOwnership -> Word64 -> Ptr (HsArray Int64) -> IO CString -foreign import ccall unsafe glean_define_ownership_add_derived +foreign import ccall safe glean_define_ownership_add_derived :: Ptr Lookup -> Ptr DefineOwnership -> Word64