Add untested because I'm lazy, lol

This commit is contained in:
Philippe Pittoli 2023-06-08 22:00:53 +02:00
parent ed5b30900d
commit 48a9a55533

View File

@ -69,11 +69,11 @@ input_classes :: forall (r :: Row Type) (i :: Type). Boolean -> HP.IProp ( class
input_classes true = HP.classes [ HH.ClassName "input is-small is-info" ]
input_classes false = HP.classes [ HH.ClassName "input is-small is-danger" ]
--btn_classes :: forall (r :: Row Type) (i :: Type)
-- . Boolean -> HP.IProp ( class :: String | r ) i
--btn_classes true = HP.classes [ HH.ClassName "button is-small is-info" ]
--btn_classes false = HP.classes [ HH.ClassName "button is-small is-danger" ]
--
btn_classes :: forall (r :: Row Type) (i :: Type)
. Boolean -> HP.IProp ( class :: String | r ) i
btn_classes true = HP.classes [ HH.ClassName "button is-small is-info" ]
btn_classes false = HP.classes [ HH.ClassName "button is-small is-danger" ]
--simple_table_header :: forall w i. HH.HTML w i
--simple_table_header
-- = HH.thead_ [ HH.tr_ [ HH.th [ HP.style "width: 50px;" ] [ HH.text "Type" ]
@ -284,6 +284,18 @@ box_input_password action password validity = HH.label [ ]
-- true -> HE.onClick \_ -> action1
-- _ -> HE.onClick \_ -> action2
btn :: forall w i. i -> i -> Boolean -> HH.HTML w i
btn title action1 action2 validity
= HH.button
[ btn_add_action validity
, btn_classes validity
] [ HH.text title ]
where
btn_add_action = case _ of
true -> HE.onClick \_ -> action1
_ -> HE.onClick \_ -> action2
p :: forall w i. String -> HH.HTML w i
p str = HH.p_ [ HH.text str ]