Sort jobs descending (except waiting)

ncough · Nov 11, 2017 · 662586e · 662586e
1 parent d048855
commit 662586e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/serverLib.sml b/serverLib.sml
@@ -199,7 +199,7 @@ in
     in loop () end
 end
 
-val waiting = read_list "waiting"
+val waiting = List.rev o read_list "waiting"
 val running = read_list "running"
 val stopped = read_list "stopped"
 val errored = read_list "errored"

diff --git a/utilLib.sml b/utilLib.sml
@@ -13,7 +13,7 @@ structure utilLib = struct
 
   fun insert x [] = [x]
     | insert x (y::xs) =
-      if x <= y then x::y::xs
+      if x >= y then x::y::xs
       else y::(insert x xs)
 
   val until_space =