X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=src%2Fgenerator.ml;h=54c691b719d48d10182f4d96716687f586c532b9;hp=50079eb4d1219fb0bd07c32fa4970ade8695195a;hb=7c71920ab4f1b1beea3e1a38b91e2d81922d6cfb;hpb=fb19874b1e1c40f3f5efafb39151b1bfc3ef725e

diff --git a/src/generator.ml b/src/generator.ml
index 50079eb..54c691b 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -15,11 +15,19 @@
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- *
- * This script generates a large amount of code and documentation for
+ *)
+
+(* This script generates a large amount of code and documentation for
  * all the daemon actions.  To add a new action there are only two
  * files you need to change, this one to describe the interface, and
  * daemon/<somefile>.c to write the implementation.
+ *
+ * After editing this file, run it (./src/generator.ml) to regenerate
+ * all the output files.
+ *
+ * IMPORTANT: This script should not print any warnings.  If it prints
+ * warnings, you should treat them as errors.
+ * [Need to add -warn-error to ocaml command line]
  *)
 
 #load "unix.cma";;
@@ -32,7 +40,7 @@ and ret =
      * indication, ie. 0 or -1.
      *)
   | Err
-    (* "Int" as a return value means an int which is -1 for error
+    (* "RInt" as a return value means an int which is -1 for error
      * or any value >= 0 on success.
      *)
   | RInt of string