let direct_deps refObj uri dtype dbd =
sprintf "SELECT * FROM %s WHERE source = \"%s\";"
- (HSql.escape dtype dbd refObj) (UriManager.string_of_uri uri)
+ refObj (HSql.escape dtype dbd (UriManager.string_of_uri uri))
let inverse_deps refObj uri dtype dbd =
sprintf "SELECT * FROM %s WHERE h_occurrence = \"%s\";"
- (HSql.escape dtype dbd refObj) (UriManager.string_of_uri uri)
+ refObj (HSql.escape dtype dbd (UriManager.string_of_uri uri))