X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=template.ml;h=dfeae3f08e79862dd595efbe6d1cbf9211490364;hb=f1ab6f3938cb6d38798e438ed63d2e018049a9b2;hp=fffc0e44586d70b519ff136bcf6fe4f4052afa1c;hpb=2c153f9737c8c8b62136eb5956de3d48283ec360;p=mclu.git

diff --git a/template.ml b/template.ml
index fffc0e4..dfeae3f 100644
--- a/template.ml
+++ b/template.ml
@@ -32,12 +32,14 @@ let templates () =
   let files = List.map ((//) template_dir) files in
   let files =
     List.filter (fun name -> Filename.check_suffix name ".template") files in
-  List.map (
-    fun filename ->
-      let name = Filename.basename filename in
-      let name = Filename.chop_suffix name ".template" in
-      (name, filename)
-  ) files
+  let templates =
+    List.map (
+      fun filename ->
+        let name = Filename.basename filename in
+        let name = Filename.chop_suffix name ".template" in
+        (name, filename)
+    ) files in
+  List.sort compare templates
 
 let template_names () = List.map fst (templates ())