ghcjs-dom-javascript 0.9.9.1 → 0.9.9.2

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• ghcjs-dom-javascript.cabal +1/−1
• src/GHCJS/DOM/Types.hs +4/−4

@@ -1,6 +1,6 @@ cabal-version: 3.6 name: ghcjs-dom-javascript-version: 0.9.9.1+version: 0.9.9.2 build-type: Simple license: MIT license-file: LICENSE

@@ -1044,10 +1044,10 @@  newtype GType = GType JSVal -foreign import javascript unsafe "$r = $1.name;" gTypeToString :: GType -> JSString+foreign import javascript unsafe "(($1) => $1.name)" gTypeToString :: GType -> JSString  foreign import javascript unsafe-  "$1===$2" js_eq :: JSVal -> JSVal -> Bool+  "(($1, $2) => $1===$2)" js_eq :: JSVal -> JSVal -> Bool  strictEqual :: (ToJSVal a, ToJSVal b) => a -> b -> JSM Bool strictEqual a b = do@@ -1055,7 +1055,7 @@     bval <- toJSVal b     return $ js_eq aval bval -foreign import javascript unsafe "h$isInstanceOf $1 $2"+foreign import javascript unsafe "h$isInstanceOf"     typeInstanceIsA' :: JSVal -> JSVal -> Bool  typeInstanceIsA o (GType t) = typeInstanceIsA' o t@@ -1155,7 +1155,7 @@  foreign import javascript unsafe "Object" gTypeGObject :: GType -foreign import javascript unsafe "$1[\"toString\"]()" js_objectToString :: GObject -> IO JSString+foreign import javascript unsafe "(($1) => $1[\"toString\"]())" js_objectToString :: GObject -> IO JSString  objectToString :: (MonadIO m, IsGObject self, FromJSString result) => self -> m result objectToString self = liftIO (fromJSString <$> js_objectToString (toGObject self))