X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Ft%2Fguestfs_400_events.ml;h=4585a09dd232cacf01c50cb543e1bed87ffd596f;hb=6e6b3ff35f9baafb22d5459ca13c112b1e00ae1b;hp=7bd77159ee11656a49ef90a53f3b546c3f027efd;hpb=7e51cc94ddb7527b37111d6fecce96dca14b900a;p=libguestfs.git

diff --git a/ocaml/t/guestfs_400_events.ml b/ocaml/t/guestfs_400_events.ml
index 7bd7715..4585a09 100644
--- a/ocaml/t/guestfs_400_events.ml
+++ b/ocaml/t/guestfs_400_events.ml
@@ -13,7 +13,7 @@
  *
  * 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  *)
 
 open Printf
@@ -27,7 +27,8 @@ let log g ev eh buf array =
     | Guestfs.EVENT_PROGRESS -> "progress"
     | Guestfs.EVENT_APPLIANCE -> "appliance"
     | Guestfs.EVENT_LIBRARY -> "library"
-    | Guestfs.EVENT_TRACE -> "trace" in
+    | Guestfs.EVENT_TRACE -> "trace"
+    | Guestfs.EVENT_ENTER -> "enter" in
 
   let eh : int = Obj.magic eh in