From 213cf7ede058b781fc957de2cd9f6a5988c08004 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 12 Nov 2017 22:58:23 +0100
Subject: Add mocked pages

---
 client/src/View/Payment.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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

diff --git a/client/src/View/Payment.hs b/client/src/View/Payment.hs
index e80790b..d1430c9 100644
--- a/client/src/View/Payment.hs
+++ b/client/src/View/Payment.hs
@@ -11,8 +11,10 @@ module View.Payment
 import Reflex.Dom (MonadWidget)
 import qualified Reflex.Dom as R
 
-import Common.Model (Init)
+import Common.Model (Init(..))
 
+import View.Payment.Pages (PagesIn(..))
+import qualified View.Payment.Pages as Pages
 import View.Payment.Table (TableIn(..))
 import qualified View.Payment.Table as Table
 
@@ -30,4 +32,7 @@ widget paymentIn = do
     _ <- Table.widget $ TableIn
       { _tableIn_init = _paymentIn_init paymentIn
       }
+    _ <- Pages.widget $ PagesIn
+      { _pagesIn_payments = _init_payments . _paymentIn_init $ paymentIn
+      }
     return $ PaymentOut {}
-- 
cgit v1.2.3