From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 client/src/Component/ConfirmDialog.hs | 49 -----------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 client/src/Component/ConfirmDialog.hs

(limited to 'client/src/Component/ConfirmDialog.hs')

diff --git a/client/src/Component/ConfirmDialog.hs b/client/src/Component/ConfirmDialog.hs
deleted file mode 100644
index cf26593..0000000
--- a/client/src/Component/ConfirmDialog.hs
+++ /dev/null
@@ -1,49 +0,0 @@
-module Component.ConfirmDialog
-  ( In(..)
-  , view
-  ) where
-
-import           Data.Text        (Text)
-import           Reflex.Dom       (Event, MonadWidget)
-import qualified Reflex.Dom       as R
-
-import qualified Common.Msg       as Msg
-import qualified Component.Button as Button
-import qualified Component.Modal  as Modal
-import qualified Util.Either      as EitherUtil
-import qualified Util.WaitFor     as WaitFor
-
-data In t m = In
-  { _in_header  :: Text
-  , _in_confirm :: Event t () -> m (Event t ())
-  }
-
-view :: forall t m a. MonadWidget t m => (In t m) -> Modal.Content t m
-view input _ =
-  R.divClass "confirm" $ do
-    R.divClass "confirmHeader" $
-      R.text $ _in_header input
-
-    R.divClass "confirmContent" $ 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
-              })
-
-          (result, waiting) <- WaitFor.waitFor (_in_confirm input) confirm
-
-        return (result, cancel)
-
-      return $
-        ( R.leftmost [ cancel, () <$ confirm ]
-        , confirm
-        )
-- 
cgit v1.2.3