From 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Nov 2017 23:56:40 +0100
Subject: Setup stylish-haskell

---
 client/src/View/Payment.hs | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

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

diff --git a/client/src/View/Payment.hs b/client/src/View/Payment.hs
index d1430c9..f70c8cd 100644
--- a/client/src/View/Payment.hs
+++ b/client/src/View/Payment.hs
@@ -1,6 +1,5 @@
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE OverloadedStrings         #-}
-{-# LANGUAGE RecursiveDo               #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecursiveDo       #-}
 
 module View.Payment
   ( widget
@@ -8,14 +7,14 @@ module View.Payment
   , PaymentOut(..)
   ) where
 
-import Reflex.Dom (MonadWidget)
-import qualified Reflex.Dom as R
+import           Reflex.Dom         (MonadWidget)
+import qualified Reflex.Dom         as R
 
-import Common.Model (Init(..))
+import           Common.Model       (Init (..))
 
-import View.Payment.Pages (PagesIn(..))
+import           View.Payment.Pages (PagesIn (..), PagesOut (..))
 import qualified View.Payment.Pages as Pages
-import View.Payment.Table (TableIn(..))
+import           View.Payment.Table (TableIn (..))
 import qualified View.Payment.Table as Table
 
 data PaymentIn = PaymentIn
@@ -29,10 +28,12 @@ data PaymentOut = PaymentOut
 widget :: forall t m. MonadWidget t m => PaymentIn -> m PaymentOut
 widget paymentIn = do
   R.divClass "payment" $ do
-    _ <- Table.widget $ TableIn
-      { _tableIn_init = _paymentIn_init paymentIn
-      }
-    _ <- Pages.widget $ PagesIn
-      { _pagesIn_payments = _init_payments . _paymentIn_init $ paymentIn
-      }
+    rec
+      _ <- Table.widget $ TableIn
+        { _tableIn_init = _paymentIn_init paymentIn
+        , _tableIn_currentPage = _pagesOut_currentPage pagesOut
+        }
+      pagesOut <- Pages.widget $ PagesIn
+        { _pagesIn_payments = _init_payments . _paymentIn_init $ paymentIn
+        }
     return $ PaymentOut {}
-- 
cgit v1.2.3