From f4f24158a46d8c0975f1b8813bbdbbeebad8c108 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 6 Nov 2019 19:44:15 +0100
Subject: Show the payment table with server side paging

---
 client/src/View/Payment/Edit.hs | 56 -----------------------------------------
 1 file changed, 56 deletions(-)
 delete mode 100644 client/src/View/Payment/Edit.hs

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

diff --git a/client/src/View/Payment/Edit.hs b/client/src/View/Payment/Edit.hs
deleted file mode 100644
index 5cb4537..0000000
--- a/client/src/View/Payment/Edit.hs
+++ /dev/null
@@ -1,56 +0,0 @@
-module View.Payment.Edit
-  ( In(..)
-  , view
-  ) where
-
-import qualified Control.Monad     as Monad
-import qualified Data.Text         as T
-import           Reflex.Dom        (Dynamic, Event, MonadWidget)
-import qualified Reflex.Dom        as R
-
-import           Common.Model      (Category (..), CategoryId,
-                                    EditPaymentForm (..), Frequency (..),
-                                    Payment (..), PaymentCategory (..),
-                                    SavedPayment (..))
-import qualified Common.Msg        as Msg
-import qualified Component.Modal   as Modal
-import qualified Util.Ajax         as Ajax
-import qualified Util.Reflex       as ReflexUtil
-import qualified View.Payment.Form as Form
-
-data In t = In
-  { _in_show              :: Event t ()
-  , _in_categories        :: [Category]
-  , _in_paymentCategories :: Dynamic t [PaymentCategory]
-  , _in_payment           :: Dynamic t Payment
-  , _in_category          :: Dynamic t CategoryId
-  }
-
-view :: forall t m. MonadWidget t m => In t -> Modal.Content t m SavedPayment
-view input cancel = do
-
-  formOutput <- R.dyn $ do
-    paymentCategories <- _in_paymentCategories input
-    payment <- _in_payment input
-    category <- _in_category input
-    return . Form.view $ Form.In
-      { Form._in_cancel = cancel
-      , Form._in_headerLabel = Msg.get Msg.Payment_EditLong
-      , Form._in_categories = _in_categories input
-      , Form._in_paymentCategories = paymentCategories
-      , Form._in_name = _payment_name payment
-      , Form._in_cost = T.pack . show . _payment_cost $ payment
-      , Form._in_date = _payment_date payment
-      , Form._in_category = category
-      , Form._in_frequency = _payment_frequency payment
-      , Form._in_mkPayload = EditPaymentForm (_payment_id payment)
-      , Form._in_ajax = Ajax.put
-      }
-
-  hide <- ReflexUtil.flatten (Form._output_hide <$> formOutput)
-  editPayment <- ReflexUtil.flatten (Form._output_addPayment <$> formOutput)
-
-  return $
-    ( hide
-    , editPayment
-    )
-- 
cgit v1.2.3