blob: ad1ad2c70199baf8f902a61c7663c5c764674bf6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Main.Throwshade where
import Prelude
import Effect (Effect)
import Effect.Class (liftEffect)
import Effect.Console (log)
import UI (setShader)
import Utils (byId, getTextArea, listen)
main :: Effect Unit
main = do
liftEffect $ log "hello it is throwshade"
input <- byId "lcolonq-throwshade-textarea"
test <- byId "lcolonq-throwshade-button-test"
listen test "click" \_ -> do
s <- getTextArea input
setShader s
|
