From baa7193345e9f0e9085bcb557e8e976d2d270867 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 18 Feb 2025 18:40:38 -0500 Subject: Support shader upload --- src/Main/Throwshade.purs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Main/Throwshade.purs') 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 -- cgit v1.2.3