diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-25 23:30:16 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-25 23:30:16 -0500 |
| commit | 2e92b2e59b543c4c20f52295ef3913f229ed20d3 (patch) | |
| tree | 5195cf47cc3a3a18547397554129809d92becd74 /src/UI.purs | |
| parent | fe9ca701f26478bacdd52188b5e75045746ebb68 (diff) | |
Redeem submit
Diffstat (limited to 'src/UI.purs')
| -rw-r--r-- | src/UI.purs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/UI.purs b/src/UI.purs index ac4d694..a01422f 100644 --- a/src/UI.purs +++ b/src/UI.purs @@ -1,8 +1,10 @@ module UI where import Prelude +import Config as Config import Effect (Effect) import Effect.Class (class MonadEffect, liftEffect) +import Web.DOM.Element as DOM.El foreign import _cheatLog :: forall a. a -> Effect Unit cheatLog :: forall m a. MonadEffect m => a -> m Unit @@ -23,3 +25,7 @@ reload = liftEffect _reload 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.apiServer <> "/redeem") el |