Module Tjr_minifs.Fuse_nfs
The most complicated example: an NFS client mounted via FUSE
val mk_client_ops : monad_ops:'a Tjr_monad.monad_ops -> internal_marshal_err:'a Nfs_client.internal_marshal_err -> call:(Minifs_intf.Msgs.msg_from_client -> (Minifs_intf.Msgs.msg_from_server, 'a) Tjr_monad.m) -> i2dh:(Minifs_intf.Msgs.dh -> 'b) -> dh2i:('b -> Minifs_intf.Msgs.dh) -> i2fd:(Minifs_intf.Msgs.fd -> 'c) -> fd2i:('c -> Minifs_intf.Msgs.fd) -> ('c, 'b, 'a) Minifs_intf.opsval mk_fuse_ops : monad_ops:'a Tjr_monad.monad_ops -> ops:('b, 'c, 'a) Minifs_intf.ops -> co_eta:'a Minifs_intf.co_eta -> Fuse.operationsval mk_fuse_nfs_ops : monad_ops:'a Tjr_monad.monad_ops -> internal_marshal_err:'a Nfs_client.internal_marshal_err -> call:(Minifs_intf.Msgs.msg_from_client -> (Minifs_intf.Msgs.msg_from_server, 'a) Tjr_monad.m) -> i2dh:(Minifs_intf.Msgs.dh -> 'b) -> dh2i:('b -> Minifs_intf.Msgs.dh) -> i2fd:(Minifs_intf.Msgs.fd -> 'c) -> fd2i:('c -> Minifs_intf.Msgs.fd) -> co_eta:'a Minifs_intf.co_eta -> Fuse.operations