From 04c59f08f100ba6a0658d1f2b357f7d8b1e14218 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Oct 2019 22:38:35 +0200
Subject: Show income table

---
 client/src/View/App.hs | 40 ++++++++++++++++++++++------------------
 1 file changed, 22 insertions(+), 18 deletions(-)

(limited to 'client/src/View/App.hs')

diff --git a/client/src/View/App.hs b/client/src/View/App.hs
index d853c7e..3292336 100644
--- a/client/src/View/App.hs
+++ b/client/src/View/App.hs
@@ -2,22 +2,24 @@ module View.App
   ( widget
   ) where
 
-import qualified Data.Text     as T
-import           Prelude       hiding (error, init)
-import           Reflex.Dom    (Dynamic, MonadWidget)
-import qualified Reflex.Dom    as R
-
-import           Common.Model  (Init, InitResult (..))
-import qualified Common.Msg    as Msg
-
-import           Model.Route   (Route (..))
-import qualified Util.Router   as Router
-import           View.Header   (HeaderIn (..))
-import qualified View.Header   as Header
-import qualified View.NotFound as NotFound
-import           View.Payment  (PaymentIn (..))
-import qualified View.Payment  as Payment
-import qualified View.SignIn   as SignIn
+import qualified Data.Text            as T
+import           Prelude              hiding (error, init)
+import           Reflex.Dom           (Dynamic, MonadWidget)
+import qualified Reflex.Dom           as R
+
+import           Common.Model         (Init, InitResult (..))
+import qualified Common.Msg           as Msg
+
+import           Model.Route          (Route (..))
+import qualified Util.Router          as Router
+import           View.Header          (HeaderIn (..))
+import qualified View.Header          as Header
+import           View.Income.Income   (IncomeIn (..))
+import qualified View.Income.Income   as Income
+import qualified View.NotFound        as NotFound
+import           View.Payment.Payment (PaymentIn (..))
+import qualified View.Payment.Payment as Payment
+import qualified View.SignIn          as SignIn
 
 widget :: InitResult -> IO ()
 widget initResult =
@@ -59,12 +61,14 @@ signedWidget :: MonadWidget t m => Init -> Dynamic t Route -> m ()
 signedWidget init route = do
   R.dyn . R.ffor route $ \case
     RootRoute ->
-      Payment.widget $ PaymentIn
+      Payment.view $ PaymentIn
         { _paymentIn_init = init
         }
 
     IncomeRoute ->
-      R.el "div" $ R.text "Incomes"
+      Income.view $ IncomeIn
+        { _incomeIn_init = init
+        }
 
     NotFoundRoute ->
       NotFound.view
-- 
cgit v1.2.3