From 72d735ff9ae7f34e15c68ddd6824d651e87b7983 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 17 Mar 2026 21:12:21 +0100 Subject: Return Maybe from getElementById --- src/JavaScript.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/JavaScript.hs') diff --git a/src/JavaScript.hs b/src/JavaScript.hs index bc27818..81b3502 100644 --- a/src/JavaScript.hs +++ b/src/JavaScript.hs @@ -12,8 +12,8 @@ module JavaScript ( import GHC.Wasm.Prim -getElementById :: String -> IO JSVal -getElementById = js_document_getElementById . toJSString +getElementById :: String -> IO (Maybe JSVal) +getElementById = fmap nullToNothing . js_document_getElementById . toJSString foreign import javascript unsafe "document.getElementById($1)" js_document_getElementById :: JSString -> IO JSVal -- cgit v1.2.3