diff options
author | Joris | 2020-01-20 19:47:23 +0100 |
---|---|---|
committer | Joris | 2020-01-20 22:11:19 +0100 |
commit | 47c2a4d6b68c54eed5f7b45671b1ccaf8c0db200 (patch) | |
tree | f5c1c4281bb26810bdd0fea3d6582d3eafa227cf /client/src/View/Header.hs | |
parent | d20d7ceec2a14f79ebb06555a71d424aeaa90e54 (diff) | |
download | budget-47c2a4d6b68c54eed5f7b45671b1ccaf8c0db200.tar.gz budget-47c2a4d6b68c54eed5f7b45671b1ccaf8c0db200.tar.bz2 budget-47c2a4d6b68c54eed5f7b45671b1ccaf8c0db200.zip |
Show payment stats
Diffstat (limited to 'client/src/View/Header.hs')
-rw-r--r-- | client/src/View/Header.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/client/src/View/Header.hs b/client/src/View/Header.hs index f91c408..ff9f40a 100644 --- a/client/src/View/Header.hs +++ b/client/src/View/Header.hs @@ -67,6 +67,11 @@ links route = do (R.ffor route (attrs CategoryRoute)) (Msg.get Msg.Category_Title) + Link.view + "/statistics" + (R.ffor route (attrs StatisticsRoute)) + (Msg.get Msg.Statistics_Title) + where attrs linkRoute currentRoute = M.singleton "class" $ |