git.iko.soy/typeable/entropy
on main help sign in
ghcjs: Use globalThis instead of window
ddda007Ali Abrar
System/EntropyGhcjs.hs+3−3
compare with main
unifiedsplit
@@ -19,7 +19,7 @@ import Data.ByteString as B
19import GHCJS.DOM.Crypto as Crypto
19import GHCJS.DOM.Crypto as Crypto
20import GHCJS.DOM.Types (ArrayBufferView (..), fromJSValUnchecked)
20import GHCJS.DOM.Types (ArrayBufferView (..), fromJSValUnchecked)
21import GHCJS.DOM.GlobalCrypto (getCrypto)
21import GHCJS.DOM.GlobalCrypto (getCrypto)
22−import GHCJS.DOM (currentWindowUnchecked)
22+import GHCJS.DOM (globalThisUnchecked)
23import Language.Javascript.JSaddle.Object as JS
23import Language.Javascript.JSaddle.Object as JS
24
24
25
25
@@ -36,8 +36,8 @@ hardwareRandom _ = pure Nothing
36-- |Open a `CryptHandle`
36-- |Open a `CryptHandle`
37openHandle :: IO CryptHandle
37openHandle :: IO CryptHandle
38openHandle = do
38openHandle = do
39− w <- currentWindowUnchecked
39+ this <- globalThisUnchecked
40− CH <$> getCrypto w
40+ CH <$> getCrypto this
41
41
42-- |Close the `CryptHandle`
42-- |Close the `CryptHandle`
43closeHandle :: CryptHandle -> IO ()
43closeHandle :: CryptHandle -> IO ()
entropy.cabal+1−1
@@ -50,7 +50,7 @@ library
50 default-language: Haskell2010
50 default-language: Haskell2010
51
51
52 if impl(ghcjs) || os(ghcjs) {
52 if impl(ghcjs) || os(ghcjs) {
53− build-depends: ghcjs-dom
53+ build-depends: ghcjs-dom >= 0.9.5.0 && < 1
54 , jsaddle
54 , jsaddle
55 }
55 }
56 else {
56 else {