X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=frontend.ml;h=aca8e7b65ff0941588824c857175b50f613c634a;hb=8ed94d4c37a320acc03f1f3f6523201b42202f00;hp=a3a557d0b2673498bd17fdf9af652f3c298cc49d;hpb=86fd747228605ac982394426c8b65c4a327f0b1f;p=vsys.git diff --git a/frontend.ml b/frontend.ml index a3a557d..aca8e7b 100644 --- a/frontend.ml +++ b/frontend.ml @@ -21,8 +21,11 @@ object(this) let realperm = perm land (lnot 0o111) in match rp with Relpath(rel) -> let fqp = String.concat "/" [root_dir;rel] in - Fifowatcher.mkentry fqp abspath realperm; - Fifowatcher.openentry fqp (abspath,slice_name) realperm + let res = Fifowatcher.mkentry fqp abspath realperm in + match res with + | Success -> + Fifowatcher.openentry fqp (abspath,slice_name) realperm + | _ -> () (** A new directory was created at the backend, make a corresponding directory at the frontend. Refer to mkentry for parameters *)