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