From 2e92b2e59b543c4c20f52295ef3913f229ed20d3 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 25 Nov 2024 23:30:16 -0500
Subject: Redeem submit

---
 src/UI.purs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/UI.purs')

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
-- 
cgit v1.2.3