Commit 14ff4db3 authored by Michael Hanus 's avatar Michael Hanus

Add number of users

parent ca9f44c3
......@@ -87,8 +87,9 @@ listSystemView systems =
listUserView :: [User] -> [HtmlExp]
listUserView users =
[panelWith 10
[text "Users in Smap"]
[spTable ([[[b [] [text "Name"]],[b [] [text "Email"]]
[text $ "Users in Smap (total: " ++ show (length users) ++ ")"]
[spTable ([[[b [] [text "Name"]]
,[b [] [text "Email"]]
,[b [] [text "Is admin?"]]]] ++
map listUser (sortBy leqUser users))] []]
where
......
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