Show the payment table with server side paging

1 files changed, 0 insertions, 58 deletions

diff --git a/client/src/View/Payment/Delete.hs b/client/src/View/Payment/Delete.hs
deleted file mode 100644
index e5e7219..0000000
--- a/client/src/View/Payment/Delete.hs
+++ /dev/null
@@ -1,58 +0,0 @@
-module View.Payment.Delete
-  ( In(..)
-  , view
-  ) where
-
-import           Data.Text        (Text)
-import qualified Data.Text        as T
-import           Reflex.Dom       (Dynamic, Event, MonadWidget)
-import qualified Reflex.Dom       as R
-
-import           Common.Model     (Payment (..))
-import qualified Common.Msg       as Msg
-import qualified Component.Button as Button
-import qualified Component.Modal  as Modal
-import qualified Util.Ajax        as Ajax
-import qualified Util.Either      as EitherUtil
-import qualified Util.WaitFor     as WaitFor
-
-data In t = In
-  { _in_payment :: Dynamic t Payment
-  }
-
-view :: forall t m. MonadWidget t m => (In t) -> Modal.Content t m Payment
-view input _ =
-  R.divClass "delete" $ do
-    R.divClass "deleteHeader" $ R.text $ Msg.get Msg.Payment_DeleteConfirm
-
-    R.divClass "deleteContent" $ do
-
-      (confirm, cancel) <- R.divClass "buttons" $ do
-
-        cancel <- Button._out_clic <$> (Button.view $
-          (Button.defaultIn (R.text $ Msg.get Msg.Dialog_Undo))
-            { Button._in_class = R.constDyn "undo" })
-
-        rec
-          confirm <- Button._out_clic <$> (Button.view $
-            (Button.defaultIn (R.text $ Msg.get Msg.Dialog_Confirm))
-              { Button._in_class = R.constDyn "confirm"
-              , Button._in_submit = True
-              , Button._in_waiting = waiting
-              })
-
-          let url =
-                R.ffor (_in_payment input) (\id ->
-                  T.concat ["/api/payment/", T.pack . show $ _payment_id id]
-                )
-
-          (result, waiting) <- WaitFor.waitFor
-            (Ajax.delete url)
-            confirm
-
-        return (R.fmapMaybe EitherUtil.eitherToMaybe result, cancel)
-
-      return $
-        ( R.leftmost [ cancel, () <$ confirm ]
-        , R.tag (R.current $ _in_payment input) confirm
-        )