Lock_file_async.NfsSourceNfs has analogs of functions in Lock_file_blocking.Nfs; see there for documentation. In addition to adding Deferred's, blocking_create was renamed waiting_create to avoid the impression that it blocks Async.
val waiting_create :
?abort:unit Async.Deferred.t ->
?message:string ->
string ->
unit Async.Deferred.tval critical_section :
?message:string ->
string ->
abort:unit Async.Deferred.t ->
f:(unit -> 'a Async.Deferred.t) ->
'a Async.Deferred.t