git.iko.soy/jsaddle
on master help sign in
Change window to globalThis for node
9cb3534Hamish Mackenzie
jsaddle/src/Language/Javascript/JSaddle/Object.hs+1−1
compare with master
unifiedsplit
@@ -526,11 +526,11 @@ array args = do
526 Object . coerce <$> fromListIO rargs
526 Object . coerce <$> fromListIO rargs
527
527
528-- | JavaScript's global object
528-- | JavaScript's global object
529−global :: Object
530#ifdef ghcjs_HOST_OS
529#ifdef ghcjs_HOST_OS
531foreign import javascript unsafe "$r = globalThis"
530foreign import javascript unsafe "$r = globalThis"
532 global :: Object
531 global :: Object
533#else
532#else
533+global :: Object
534global = Object . JSVal . unsafePerformIO $ newIORef 4
534global = Object . JSVal . unsafePerformIO $ newIORef 4
535#endif
535#endif
536
536