From 7ffb7b021eec46f2d714e04b47d752012e1bf8ea Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Wed, 31 Jul 2024 22:59:58 -0400
Subject: Frontend updates

---
 fig-frontend-client/src/UI.purs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 fig-frontend-client/src/UI.purs

(limited to 'fig-frontend-client/src/UI.purs')

diff --git a/fig-frontend-client/src/UI.purs b/fig-frontend-client/src/UI.purs
new file mode 100644
index 0000000..49d797a
--- /dev/null
+++ b/fig-frontend-client/src/UI.purs
@@ -0,0 +1,13 @@
+module UI where
+
+import Prelude
+import Effect (Effect)
+import Effect.Class (class MonadEffect, liftEffect)
+
+foreign import _cheatLog :: forall a. a -> Effect Unit
+cheatLog :: forall m a. MonadEffect m => a -> m Unit
+cheatLog x = liftEffect $ _cheatLog x
+
+foreign import _setInterval :: Number -> Effect Unit -> Effect Unit
+setInterval :: forall m. MonadEffect m => Number -> Effect Unit -> m Unit
+setInterval d f = liftEffect $ _setInterval d f
-- 
cgit v1.2.3