diff options
| author | LLLL Colonq <llll@colonq> | 2025-02-18 18:40:38 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-02-18 18:40:38 -0500 |
| commit | baa7193345e9f0e9085bcb557e8e976d2d270867 (patch) | |
| tree | de922e51ef577b317c970facb6d4ae445a80c1de /src/UI.purs | |
| parent | 34b49df0ab7336789e79590e51d4456f92024408 (diff) | |
Support shader upload
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 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 |