Re-export syncCallback'* prime variants.

ghcjs · Feb 19, 2025 · 0754dff · 0754dff
1 parent b72b4d0
commit 0754dff
Showing 1 changed file with 10 additions and 1 deletion.
diff --git 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
+       (releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback)
 #else
 import GHCJS.Foreign.Callback
+       (syncCallback1', syncCallback2', syncCallback3', releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback)
 #endif
-       (releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback)
 import GHCJS.Marshal (ToJSVal(..))
 import JavaScript.Array (MutableJSArray)
 import qualified JavaScript.Array as Array (toListIO, fromListIO)