From baa7193345e9f0e9085bcb557e8e976d2d270867 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 18 Feb 2025 18:40:38 -0500
Subject: Support shader upload

---
 src/UI.purs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/UI.purs')

diff --git a/src/UI.purs b/src/UI.purs
index 44117a0..d5913b7 100644
--- a/src/UI.purs
+++ b/src/UI.purs
@@ -33,3 +33,7 @@ submitRedeem el = liftEffect $ _submitRedeem (Config.secureApiServer <> "/redeem
 foreign import _setShader :: String -> Effect Unit
 setShader :: forall m. MonadEffect m => String -> m Unit
 setShader s = liftEffect $ _setShader s
+
+foreign import _submitShader :: String -> String -> Effect Unit
+submitShader :: forall m. MonadEffect m => String -> m Unit
+submitShader el = liftEffect $ _submitShader (Config.secureApiServer <> "/redeem") el
-- 
cgit v1.2.3