blob: 0fc5fe1f78de1112f4e80b994f1e26be6f6808fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module Main.Menu where
import Prelude
import Data.Foldable (for_)
import Data.Tuple (Tuple(..))
import Effect (Effect)
import Effect.Aff (launchAff_)
import Effect.Class (liftEffect)
import Effect.Console (log)
import UI as UI
import Utils (listen, queryAll)
import Web.Event.Event as Ev
main :: Effect Unit
main = 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
Tuple redeem inp <- UI.menuRedeemData box
UI.submitRedeem redeem inp
|
