cleanup

.gitignore

@@ -7,6 +7,9 @@
 *.cmx
 *.cmxs
 *.cmxa
+*.type_mli
+.depend
+utodo.js
 
 # ocamlbuild working directory
 _build/

src/services.eliom

@@ -1,14 +1,14 @@
-module Utodo_app =                                                               
-  Eliom_registration.App (                                                       
-    struct                                                                       
-      let application_name = "utodo"                                             
-      let global_data_path = None                                                
+module Utodo_app =
+  Eliom_registration.App (
+    struct
+      let application_name = "utodo"
+      let global_data_path = None
     end)
 
-let main_service =                                                               
-  Eliom_service.create                                                           
-    ~path:(Eliom_service.Path [])                                                
-    ~meth:(Eliom_service.Get Eliom_parameter.unit)                               
+let main_service =
+  Eliom_service.create
+    ~path:(Eliom_service.Path [])
+    ~meth:(Eliom_service.Get Eliom_parameter.unit)
     ()
 
 let list_service =

src/tools.eliom

@@ -1,7 +1,7 @@
 open Services
 open%shared Ulist_t
 
-let rec buildDirectoryListing d res = 
+let rec buildDirectoryListing d res =
   Lwt.catch (fun () ->
     let%lwt cur = Lwt_unix.readdir d in
     if cur <> "." && cur <> ".."

src/ulist.eliom

@@ -149,7 +149,9 @@ open%shared Ulist_btn
            {uuid  = (Uuidm.to_string (Uuidm.v `V4));
             subList = false;
             label = "";
-            status = false})
+            status = false
+           }
+          )
           (snd ~%rtasks)
         )
         ] in