From 12a8b6bb63ab52cd4828f16d26d94079fa576436 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 18 Feb 2025 00:33:43 -0500
Subject: Add throwshade

---
 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 3da0814..44117a0 100644
--- a/src/UI.purs
+++ b/src/UI.purs
@@ -29,3 +29,7 @@ redirect url = liftEffect $ _redirect url
 foreign import _submitRedeem :: String -> DOM.El.Element -> Effect Unit
 submitRedeem :: forall m. MonadEffect m => DOM.El.Element -> m Unit
 submitRedeem el = liftEffect $ _submitRedeem (Config.secureApiServer <> "/redeem") el
+
+foreign import _setShader :: String -> Effect Unit
+setShader :: forall m. MonadEffect m => String -> m Unit
+setShader s = liftEffect $ _setShader s
-- 
cgit v1.2.3