From: Richard W.M. Jones <rjones@redhat.com>
Date: Wed, 25 Mar 2015 17:41:41 +0000 (+0000)
Subject: Sort template list before returning.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=f1ab6f3938cb6d38798e438ed63d2e018049a9b2;hp=2c153f9737c8c8b62136eb5956de3d48283ec360;p=mclu.git

Sort template list before returning.
---

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 ())