From 776265c301e9994613ccaa4606e63c0a48d797e6 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Thu, 12 Dec 2024 05:48:49 -0500
Subject: Greencircle site

---
 src/Utils.purs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Utils.purs')

diff --git a/src/Utils.purs b/src/Utils.purs
index 4755436..8c530ef 100644
--- a/src/Utils.purs
+++ b/src/Utils.purs
@@ -54,6 +54,9 @@ query q = do
     Nothing -> liftEffect $ throw $ "could not find element matching query: " <> q
     Just x -> pure x
 
+getId :: forall m. MonadEffect m => DOM.Element -> m String
+getId e = liftEffect $ DOM.El.id e
+
 listen :: forall m. MonadEffect m => DOM.Element -> String -> (Ev.Event -> Effect Unit) -> m Unit
 listen e ev f = do
   l <- liftEffect $ Ev.Tar.eventListener f
-- 
cgit v1.2.3