diff --git a/.gitignore b/.gitignore
index d25ddbe..a9ec3fa 100644
--- a/.gitignore
+++ b/.gitignore
@@ -7,6 +7,9 @@
 *.cmx
 *.cmxs
 *.cmxa
+*.type_mli
+.depend
+utodo.js
 
 # ocamlbuild working directory
 _build/
diff --git a/src/services.eliom b/src/services.eliom
index fb91483..41ad1f4 100644
--- a/src/services.eliom
+++ b/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 =
diff --git a/src/tools.eliom b/src/tools.eliom
index cd362c5..ab15413 100644
--- a/src/tools.eliom
+++ b/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 <> ".."
diff --git a/src/ulist.eliom b/src/ulist.eliom
index 2d21910..27edb72 100644
--- a/src/ulist.eliom
+++ b/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