X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=fdwatcher.ml;h=f520aadab9278126ced8d6a26cb5edd711c4242f;hb=8ed94d4c37a320acc03f1f3f6523201b42202f00;hp=7761d30ccf8a9a0dbcd26aca84fc1ff531c800eb;hpb=86fd747228605ac982394426c8b65c4a327f0b1f;p=vsys.git

diff --git a/fdwatcher.ml b/fdwatcher.ml
index 7761d30..f520aad 100644
--- a/fdwatcher.ml
+++ b/fdwatcher.ml
@@ -1,3 +1,6 @@
+(* Fdwatcher - The main event loop. Agnostic to the type of file descriptors
+ involved.*)
+
 open Printf
 open Globals
 
@@ -8,7 +11,6 @@ let cbtable = Hashtbl.create 1024
  * fifo outputs, the out descriptor must be opened a nouveau whenever we
  * want to send out data, and so we keep the associated filename as well.
  * Same with input fifos. Yipee.*)
-
 let add_fd (evpair:fname_and_fd) (fd_other:fname_and_fd) (callback:fname_and_fd->fname_and_fd->unit) = 
   let (fname,fd) = evpair in
   fdset := (fd::!fdset);