From c1168103f8a955b3ea5e934952dc0f682b8f6af9 Mon Sep 17 00:00:00 2001 From: dmjio Date: Wed, 19 Feb 2025 15:58:36 -0600 Subject: [PATCH] Re-export syncCallback'* prime variants. --- jsaddle/src/Language/Javascript/JSaddle/Object.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/jsaddle/src/Language/Javascript/JSaddle/Object.hs b/jsaddle/src/Language/Javascript/JSaddle/Object.hs index 9472d029..02e22111 100644 --- a/jsaddle/src/Language/Javascript/JSaddle/Object.hs +++ b/jsaddle/src/Language/Javascript/JSaddle/Object.hs @@ -96,6 +96,14 @@ module Language.Javascript.JSaddle.Object ( , objCallAsFunction , objCallAsConstructor , nullObject + +#ifdef ghcjs_HOST_OS +#if __GLASGOW_HASKELL__ >= 900 + , syncCallback1' + , syncCallback2' + , syncCallback3' +#endif +#endif ) where import Prelude hiding ((!!)) @@ -104,10 +112,11 @@ import Data.Coerce (coerce) import GHCJS.Types (nullRef) #if __GLASGOW_HASKELL__ >= 900 import GHC.JS.Foreign.Callback + (syncCallback1', syncCallback2', syncCallback3', releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback) #else import GHCJS.Foreign.Callback -#endif (releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback) +#endif import GHCJS.Marshal (ToJSVal(..)) import JavaScript.Array (MutableJSArray) import qualified JavaScript.Array as Array (toListIO, fromListIO)