git.iko.soy/typeable/entropy
on main help sign in
Merge pull request #65 from obsidiansystems/aa/nonwindow-contexts
faf34fdThomas M. DuBuisson
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
@@ -56,7 +56,7 @@ library
56 default-language: Haskell2010
56 default-language: Haskell2010
57
57
58 if impl(ghcjs) || os(ghcjs) {
58 if impl(ghcjs) || os(ghcjs) {
59− build-depends: ghcjs-dom
59+ build-depends: ghcjs-dom >= 0.9.5.0 && < 1
60 , jsaddle
60 , jsaddle
61 }
61 }
62 else {
62 else {