diff options
Diffstat (limited to 'src/Main/Throwshade.purs')
| -rw-r--r-- | src/Main/Throwshade.purs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Main/Throwshade.purs b/src/Main/Throwshade.purs index ad1ad2c..bd7393b 100644 --- a/src/Main/Throwshade.purs +++ b/src/Main/Throwshade.purs @@ -5,7 +5,7 @@ import Prelude import Effect (Effect) import Effect.Class (liftEffect) import Effect.Console (log) -import UI (setShader) +import UI (setShader, submitShader) import Utils (byId, getTextArea, listen) main :: Effect Unit @@ -16,3 +16,7 @@ main = do listen test "click" \_ -> do s <- getTextArea input setShader s + submit <- byId "lcolonq-throwshade-button-submit" + listen submit "click" \_ -> do + s <- getTextArea input + submitShader s |