From c9b9b64d2bc50011bb425bc34c95e8dcb443d4ae Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 16 Sep 2025 14:11:11 -0400 Subject: Add soundboard --- src/UI.purs | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src/UI.purs') diff --git a/src/UI.purs b/src/UI.purs index 645c346..dd2fa40 100644 --- a/src/UI.purs +++ b/src/UI.purs @@ -1,7 +1,9 @@ module UI where import Prelude + import Config as Config +import Data.Tuple (Tuple(..)) import Effect (Effect) import Effect.Class (class MonadEffect, liftEffect) import Web.DOM.Element as DOM.El @@ -26,9 +28,13 @@ foreign import _redirect :: String -> Effect Unit redirect :: forall m. MonadEffect m => String -> m Unit 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 _menuRedeemData :: (String -> String -> Tuple String String) -> DOM.El.Element -> Effect (Tuple String String) +menuRedeemData :: forall m. MonadEffect m => DOM.El.Element -> m (Tuple String String) +menuRedeemData el = liftEffect $ _menuRedeemData Tuple el + +foreign import _submitRedeem :: String -> String -> String -> Effect Unit +submitRedeem :: forall m. MonadEffect m => String -> String -> m Unit +submitRedeem redeem inp = liftEffect $ _submitRedeem (Config.secureApiServer <> "/redeem") redeem inp foreign import _setShader :: String -> Effect Unit setShader :: forall m. MonadEffect m => String -> m Unit -- cgit v1.2.3