diff options
| author | LLLL Colonq <llll@colonq> | 2024-12-12 05:48:49 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-12-12 05:48:49 -0500 |
| commit | 776265c301e9994613ccaa4606e63c0a48d797e6 (patch) | |
| tree | fbe2cc88796f0efd1b57608318ad92d38a431a0c /src/Utils.purs | |
| parent | 638bdddeb10b18dd35af5a6de2950aaa3c8a5e44 (diff) | |
Greencircle site
Diffstat (limited to 'src/Utils.purs')
| -rw-r--r-- | src/Utils.purs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |