From 2e92b2e59b543c4c20f52295ef3913f229ed20d3 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 25 Nov 2024 23:30:16 -0500 Subject: Redeem submit --- src/Main.purs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Main.purs') diff --git a/src/Main.purs b/src/Main.purs index 7897b49..983a805 100644 --- a/src/Main.purs +++ b/src/Main.purs @@ -37,6 +37,7 @@ import Web.HTML as HTML import Web.HTML.HTMLDocument as HTML.Doc import Web.HTML.HTMLInputElement as HTML.Input import Web.HTML.Window as HTML.Win +import Web.XHR.FormData as FD maybeToArray :: forall a. Maybe a -> Array a maybeToArray (Just x) = [x] @@ -228,6 +229,12 @@ mainRegister = launchAff_ do mainMenu :: Effect Unit mainMenu = launchAff_ do liftEffect $ log "hello from menu" + textareas <- queryAll "textarea" + for_ textareas \ta -> listen ta "click" Ev.stopPropagation + boxes <- queryAll ".lcolonq-menu-box" + for_ boxes \box -> do + listen box "click" \_ev -> do + UI.submitRedeem box mainAuth :: Effect Unit mainAuth = launchAff_ do -- cgit v1.2.3