aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-27 00:14:03 +03:00
Code Issues Projects Releases Wiki Activity

Calculate visits correctly

Browse Source
This commit is contained in:
Artyom 2016-05-05 02:53:41 +03:00
parent bf10fa4036
commit 66e8a42ac5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/View.hs
View File

@ -215,7 +215,7 @@ renderStats globalState acts = do
thead_ $ tr_ $ do
td_ "Category"
td_ "Visits"
let catVisits = map (head &&& length) . group $
let catVisits = map (head &&& length) . group . sort $
[catId | (Action'CategoryVisit catId, _) <- acts']
for_ (reverse $ sortWith snd catVisits) $ \(catId, n) -> do
tr_ $ do