Commit 4763c446 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[HOTFIX] Funny user message

parent a6a23169
...@@ -583,10 +583,13 @@ submitButtonComponent = here.component "submitButton" cpt ...@@ -583,10 +583,13 @@ submitButtonComponent = here.component "submitButton" cpt
pure $ pure $
H.button { className: "btn btn-primary" H.button { className: "btn btn-primary"
, "type" : "submit" , "type" : "submit"
, on : { click: doSearch onSearch errors session selection' search' }
, style : { width: "100%" } , style : { width: "100%" }
} }
[ H.text "Launch Search" ] {-
, on : { click: doSearch onSearch errors session selection' search' }
-}
-- [ H.text "Launch Search" ]
[ H.text "Function Back Soon if you just give your credit card number (False, we love public services for common good. True: we need a break for GarganFest.)." ]
doSearch onSearch errors session selection search = \_ -> do doSearch onSearch errors session selection search = \_ -> do
log2 "[submitButton] searching" search log2 "[submitButton] searching" search
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment