blob: 58364b6f87fd788b33b3a1e29cc557db5e4030c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module Main.Menu where
import Prelude
import Data.Foldable (for_)
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
UI.submitRedeem box
|
