Skip to content

Commit 0754dff

Browse files
committed
Re-export syncCallback'* prime variants.
1 parent b72b4d0 commit 0754dff

1 file changed

Lines changed: 10 additions & 1 deletion

File tree

  • jsaddle/src/Language/Javascript/JSaddle

jsaddle/src/Language/Javascript/JSaddle/Object.hs

Lines changed: 10 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -96,6 +96,14 @@ module Language.Javascript.JSaddle.Object (
9696
, objCallAsFunction
9797
, objCallAsConstructor
9898
, nullObject
99+
100+
#ifdef ghcjs_HOST_OS
101+
#if __GLASGOW_HASKELL__ >= 900
102+
, syncCallback1'
103+
, syncCallback2'
104+
, syncCallback3'
105+
#endif
106+
#endif
99107
) where
100108

101109
import Prelude hiding ((!!))
@@ -104,10 +112,11 @@ import Data.Coerce (coerce)
104112
import GHCJS.Types (nullRef)
105113
#if __GLASGOW_HASKELL__ >= 900
106114
import GHC.JS.Foreign.Callback
115+
(releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback)
107116
#else
108117
import GHCJS.Foreign.Callback
118+
(syncCallback1', syncCallback2', syncCallback3', releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback)
109119
#endif
110-
(releaseCallback, syncCallback2, asyncCallback2, OnBlocked(..), Callback)
111120
import GHCJS.Marshal (ToJSVal(..))
112121
import JavaScript.Array (MutableJSArray)
113122
import qualified JavaScript.Array as Array (toListIO, fromListIO)

0 commit comments

Comments
 (0)