diff --git a/Mouse.ml b/Mouse.ml
index 3ef5486..4b23710 100644
--- a/Mouse.ml
+++ b/Mouse.ml
@@ -1,4 +1,10 @@
 
+(** Mouse management and event handling. *)
+(* vim: set ts=2 sw=2 et : *)
+
+(** Returns a list of "abstract events" generated 
+    by this SDL event *)
 let handle_event ev =
-    ignore ev
+  ignore ev ; []
 ;;
+