From aa7b0813c4a9979ab8e40f395349e241965c3ef9 Mon Sep 17 00:00:00 2001
From: Nathan McRae <nathanm@electroimpact.com>
Date: Wed, 20 Aug 2025 22:42:20 -0700
Subject: [PATCH] Simplify adding event listeners

---
 src/Main.purs | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/Main.purs b/src/Main.purs
index 4d4fa71..181de96 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -180,18 +180,19 @@ update = do
   newNode <- importNode svgNode true document
   appendChild newNode svgContainer
 
+addUpdateListener :: Document -> String -> Effect Unit
+addUpdateListener doc id = do
+  listener <- eventListener updateEvent
+  element <- myGetElementById doc id
+  addEventListener (EventType "input") listener true (Element.toEventTarget element)
+
 main :: Effect Unit
 main = do
   w <- window
   d <- document w
   let dd = HTMLDoc.toDocument d
 
-  listener <- eventListener updateEvent
-
-  inputElement <- myGetElementById dd "ticks"
-  addEventListener (EventType "input") listener true (Element.toEventTarget inputElement)
-
-  tickSizeEl <- myGetElementById dd "tick-size"
-  addEventListener (EventType "input") listener true (Element.toEventTarget tickSizeEl)
+  addUpdateListener dd "ticks"
+  addUpdateListener dd "tick-size"
 
   update
\ No newline at end of file