Commit 343ee885 authored by Jos van den Oever's avatar Jos van den Oever

Sort items by name

parent f2cf38b9
......@@ -103,7 +103,8 @@ getNamedRenderStatus blobid sw1 sw2 = do
osversion ^. OSVersionName)
let dict = map (\(Value a, Value b, Value c, Value d, Value e, Value f)
-> (a, j b c ++ " " ++ d ++ " (" ++ e ++ " " ++ f ++ ")")) rows
return $ mapMaybe (newName dict) status
let unsorted = mapMaybe (newName dict) status
return $ sortOn rsName unsorted
where
newName dict s = case lookup (rsSoftware s) dict of
Just name -> Just s{rsName = name}
......
......@@ -28,9 +28,9 @@
$if rsHasResult s
$else
$maybe _ <- rsStarted s
$if renderIsBusy s
$nothing
$else
#{rsName s}
$maybe msg <- lookup software1 statusMsgs
......@@ -53,9 +53,9 @@
$if rsHasResult s
$else
$maybe _ <- rsStarted s
$if renderIsBusy s
$nothing
$else
#{rsName s}
$maybe msg <- lookup software2 statusMsgs
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment