diff options
| author | LLLL Colonq <llll@colonq> | 2025-02-18 00:33:43 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-02-18 00:33:43 -0500 |
| commit | 12a8b6bb63ab52cd4828f16d26d94079fa576436 (patch) | |
| tree | e5bc3783d8e9f17c5653aacb4576bda63a337dcb /src/UI.purs | |
| parent | d03675f9effa443811f054578f7c24e17adbd6dc (diff) | |
Add throwshade
Diffstat (limited to 'src/UI.purs')
| -rw-r--r-- | src/UI.purs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |