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/Clone.hs | 61 ----------------------------------------
 1 file changed, 61 deletions(-)
 delete mode 100644 client/src/View/Payment/Clone.hs

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

diff --git a/client/src/View/Payment/Clone.hs b/client/src/View/Payment/Clone.hs
deleted file mode 100644
index 82b0c27..0000000
--- a/client/src/View/Payment/Clone.hs
+++ /dev/null
@@ -1,61 +0,0 @@
-module View.Payment.Clone
-  ( In(..)
-  , view
-  ) where
-
-import qualified Control.Monad          as Monad
-import           Control.Monad.IO.Class (liftIO)
-import qualified Data.Text              as T
-import qualified Data.Time.Clock        as Time
-import           Reflex.Dom             (Dynamic, Event, MonadWidget)
-import qualified Reflex.Dom             as R
-
-import           Common.Model           (Category (..), CategoryId,
-                                         CreatePaymentForm (..), Frequency (..),
-                                         Payment (..), PaymentCategory (..),
-                                         SavedPayment (..))
-import qualified Common.Msg             as Msg
-import qualified Common.Util.Time       as TimeUtil
-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
-
-  currentDay <- liftIO $ Time.getCurrentTime >>= TimeUtil.timeToDay
-
-  form <- 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_CloneLong
-      , 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 = currentDay
-      , Form._in_category = category
-      , Form._in_frequency = _payment_frequency payment
-      , Form._in_mkPayload = CreatePaymentForm
-      , Form._in_ajax = Ajax.post
-      }
-
-  hide <- ReflexUtil.flatten (Form._output_hide <$> form)
-  clonePayment <- ReflexUtil.flatten (Form._output_addPayment <$> form)
-
-  return $
-    ( hide
-    , clonePayment
-    )
-- 
cgit v1.2.3