Support shader upload

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