aboutsummaryrefslogtreecommitdiff
path: root/client/src/Component
diff options
context:
space:
mode:
Diffstat (limited to 'client/src/Component')
-rw-r--r--client/src/Component/Modal.hs2
-rw-r--r--client/src/Component/Table.hs21
2 files changed, 11 insertions, 12 deletions
diff --git a/client/src/Component/Modal.hs b/client/src/Component/Modal.hs
index b0533e2..08f2e74 100644
--- a/client/src/Component/Modal.hs
+++ b/client/src/Component/Modal.hs
@@ -72,7 +72,7 @@ view input = do
let content = R.switchDyn $ (\(_, _, c) -> c) <$> dyn
-- Delay the event in order to let time for the modal to disappear
- R.delay (0.3 :: NominalDiffTime) content
+ R.delay (0.5 :: NominalDiffTime) content
getAttributes :: Text -> LM.Map Text Text
getAttributes modalClass =
diff --git a/client/src/Component/Table.hs b/client/src/Component/Table.hs
index 3b9ec24..2869c2d 100644
--- a/client/src/Component/Table.hs
+++ b/client/src/Component/Table.hs
@@ -4,7 +4,7 @@ module Component.Table
, Out(..)
) where
-import qualified Data.Map as M
+import qualified Data.Map as M
import Data.Text (Text)
import Reflex.Dom (Event, MonadWidget)
import qualified Reflex.Dom as R
@@ -14,23 +14,23 @@ import qualified Component.Modal as Modal
import qualified Util.Reflex as ReflexUtil
import qualified View.Icon as Icon
-data In m t h r a = In
+data In m t h r a b c = In
{ _in_headerLabel :: h -> Text
, _in_rows :: [r]
- , _in_cell :: h -> r -> Text
+ , _in_cell :: h -> r -> m ()
, _in_cloneModal :: r -> Modal.Content t m a
- , _in_editModal :: r -> Modal.Content t m a
- , _in_deleteModal :: r -> Modal.Content t m a
+ , _in_editModal :: r -> Modal.Content t m b
+ , _in_deleteModal :: r -> Modal.Content t m c
, _in_isOwner :: r -> Bool
}
-data Out t a = Out
+data Out t a b c = Out
{ _out_add :: Event t a
- , _out_edit :: Event t a
- , _out_delete :: Event t a
+ , _out_edit :: Event t b
+ , _out_delete :: Event t c
}
-view :: forall t m h r a. (MonadWidget t m, Bounded h, Enum h) => In m t h r a -> m (Out t a)
+view :: forall t m h r a b c. (MonadWidget t m, Bounded h, Enum h) => In m t h r a b c-> m (Out t a b c)
view input =
R.divClass "table" $ do
rec
@@ -49,8 +49,7 @@ view input =
R.divClass "row" $ do
flip mapM_ [minBound..] $ \header ->
R.divClass "cell" $
- R.text $
- _in_cell input header row
+ _in_cell input header row
cloneButton <-
R.divClass "cell button" $