Sort template list before returning.
authorRichard W.M. Jones <rjones@redhat.com>
Wed, 25 Mar 2015 17:41:41 +0000 (17:41 +0000)
committerRichard W.M. Jones <rjones@redhat.com>
Wed, 25 Mar 2015 17:41:41 +0000 (17:41 +0000)
template.ml

index fffc0e4..dfeae3f 100644 (file)
@@ -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 ())