Show payment stats

1 files changed, 26 insertions, 17 deletions

diff --git a/client/src/View/App.hs b/client/src/View/App.hs
index b0b89fb..71f0234 100644
--- a/client/src/View/App.hs
+++ b/client/src/View/App.hs
@@ -2,23 +2,24 @@ module View.App
   ( widget
   ) where
 
-import qualified Data.Text              as T
-import           Prelude                hiding (error, init)
-import           Reflex.Dom             (Dynamic, Event, MonadWidget)
-import qualified Reflex.Dom             as R
-
-import           Common.Model           (Currency, Init (..), UserId)
-import qualified Common.Msg             as Msg
-
-import           Model.Route            (Route (..))
-import qualified Util.Reflex            as ReflexUtil
-import qualified Util.Router            as Router
-import qualified View.Category.Category as Category
-import qualified View.Header            as Header
-import qualified View.Income.Income     as Income
-import qualified View.NotFound          as NotFound
-import qualified View.Payment.Payment   as Payment
-import qualified View.SignIn            as SignIn
+import qualified Data.Text                  as T
+import           Prelude                    hiding (error, init)
+import           Reflex.Dom                 (Dynamic, Event, MonadWidget)
+import qualified Reflex.Dom                 as R
+
+import           Common.Model               (Currency, Init (..), UserId)
+import qualified Common.Msg                 as Msg
+
+import           Model.Route                (Route (..))
+import qualified Util.Reflex                as ReflexUtil
+import qualified Util.Router                as Router
+import qualified View.Category.Category     as Category
+import qualified View.Header                as Header
+import qualified View.Income.Income         as Income
+import qualified View.NotFound              as NotFound
+import qualified View.Payment.Payment       as Payment
+import qualified View.SignIn                as SignIn
+import qualified View.Statistics.Statistics as Statistics
 
 widget :: Maybe Init -> IO ()
 widget init =
@@ -77,6 +78,11 @@ signedWidget init route = do
         , Category._in_users = _init_users init
         }
 
+    StatisticsRoute ->
+      Statistics.view $ Statistics.In
+        { Statistics._in_currency = _init_currency init
+        }
+
     NotFoundRoute ->
       NotFound.view
 
@@ -95,5 +101,8 @@ getRoute = do
     ["category"] ->
       CategoryRoute
 
+    ["statistics"] ->
+      StatisticsRoute
+
     _ ->
       NotFoundRoute