packages feed

ghcjs-dom 0.0.4 → 0.0.6

raw patch · 133 files changed

+2227/−2278 lines, 133 filesdep +ghcjs-base

Dependencies added: ghcjs-base

Files

ghcjs-dom.cabal view
@@ -1,5 +1,5 @@ name: ghcjs-dom-version: 0.0.4+version: 0.0.6 cabal-version: >=1.10 build-type: Simple license: MIT@@ -16,6 +16,10 @@   type:         git   location:     https://github.com/ghcjs/ghcjs-dom +flag ghcjs+    description: Tell cabal we are using ghcjs (work around until hackage supports impl(ghcjs))+    default: True+ flag jsffi     description: Use JavaScriptFFI extension for GHCJS JavaScript output     default: True@@ -174,11 +178,12 @@           -- GHCJS.DOM.WebKitAnimationList  --    if impl(ghcjs) && flag(jsffi)---        cpp-options: -DUSE_JAVASCRIPTFFI---        build-depends: ghcjs-base+    if flag(ghcjs) && flag(jsffi)+        cpp-options: -DUSE_JAVASCRIPTFFI+        build-depends: ghcjs-base  --    if !impl(ghcjs) || flag(webkit)-    if impl(ghc)+    if !flag(ghcjs) || flag(webkit)         cpp-options: -DUSE_WEBKIT         build-depends:  glib >=0.12.3.1 && <0.13, transformers >=0.3.0.0 && <0.4         if flag(gtk3)
src/GHCJS/DOM.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP, ForeignFunctionInterface #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE JavaScriptFFI #-} #endif module GHCJS.DOM (@@ -12,7 +12,7 @@ , postGUIAsync ) where -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) import GHCJS.Types (JSRef(..)) import Control.Applicative ((<$>)) #else@@ -42,14 +42,14 @@ import System.Environment (getArgs) import Data.List (isSuffixOf) -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) postGUIAsync :: IO () -> IO () postGUIAsync = id  postGUISync :: IO a -> IO a postGUISync = id -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$r = window"   ghcjs_currentWindow :: IO (JSRef DOMWindow) foreign import javascript unsafe "$r = document"@@ -102,7 +102,7 @@       makeDefaultWebView userAgentKey main  makeDefaultWebView :: String -> (WebView -> IO ()) -> IO ()-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) makeDefaultWebView _ _ = error "Unsupported makeDefaultWebView" #else makeDefaultWebView userAgentKey main = do
src/GHCJS/DOM/Attr.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Attr        (ghcjs_dom_attr_get_name, attrGetName,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_attr_get_name :: JSRef DOMAttr -> IO JSString #else @@ -39,7 +39,7 @@       (ghcjs_dom_attr_get_name (unDOMAttr (toDOMAttr self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"         ghcjs_dom_attr_get_specified :: JSRef DOMAttr -> IO Bool #else @@ -52,7 +52,7 @@   = ghcjs_dom_attr_get_specified (unDOMAttr (toDOMAttr self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_attr_set_value :: JSRef DOMAttr -> JSString -> IO () #else @@ -67,7 +67,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_attr_get_value :: JSRef DOMAttr -> IO JSString #else @@ -82,7 +82,7 @@       (ghcjs_dom_attr_get_value (unDOMAttr (toDOMAttr self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ownerElement\"]"         ghcjs_dom_attr_get_owner_element ::         JSRef DOMAttr -> IO (JSRef Element)@@ -99,7 +99,7 @@       (ghcjs_dom_attr_get_owner_element (unDOMAttr (toDOMAttr self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"         ghcjs_dom_attr_get_is_id :: JSRef DOMAttr -> IO Bool #else
src/GHCJS/DOM/BarProp.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.BarProp        (ghcjs_dom_bar_prop_get_visible, barPropGetVisible, BarProp,@@ -20,7 +20,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"         ghcjs_dom_bar_prop_get_visible :: JSRef BarProp -> IO Bool #else
src/GHCJS/DOM/Blob.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Blob        (ghcjs_dom_blob_get_size, blobGetSize, Blob, IsBlob, castToBlob,@@ -20,7 +20,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_blob_get_size :: JSRef Blob -> IO Double #else
src/GHCJS/DOM/CSSRule.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.CSSRule        (cUNKNOWN_RULE, cSTYLE_RULE, cCHARSET_RULE, cIMPORT_RULE,@@ -35,7 +35,7 @@ cWEBKIT_KEYFRAME_RULE = 8  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssText\"] = $2;"         ghcjs_dom_css_rule_set_css_text ::         JSRef CSSRule -> JSString -> IO ()@@ -52,7 +52,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssText\"]"         ghcjs_dom_css_rule_get_css_text :: JSRef CSSRule -> IO JSString #else @@ -67,7 +67,7 @@       (ghcjs_dom_css_rule_get_css_text (unCSSRule (toCSSRule self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"parentStyleSheet\"]"         ghcjs_dom_css_rule_get_parent_style_sheet ::         JSRef CSSRule -> IO (JSRef CSSStyleSheet)@@ -85,7 +85,7 @@          (unCSSRule (toCSSRule self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"parentRule\"]"         ghcjs_dom_css_rule_get_parent_rule ::         JSRef CSSRule -> IO (JSRef CSSRule)
src/GHCJS/DOM/CSSRuleList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.CSSRuleList        (ghcjs_dom_css_rule_list_item, cssRuleListItem,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_css_rule_list_item ::         JSRef CSSRuleList -> Word -> IO (JSRef CSSRule)@@ -40,7 +40,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_css_rule_list_get_length :: JSRef CSSRuleList -> IO Word #else
src/GHCJS/DOM/CSSStyleDeclaration.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.CSSStyleDeclaration        (ghcjs_dom_css_style_declaration_get_property_value,@@ -41,7 +41,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"         ghcjs_dom_css_style_declaration_get_property_value ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString@@ -63,7 +63,7 @@          (toJSString propertyName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeProperty\"]($2)"         ghcjs_dom_css_style_declaration_remove_property ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString@@ -85,7 +85,7 @@          (toJSString propertyName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"         ghcjs_dom_css_style_declaration_get_property_priority ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString@@ -107,7 +107,7 @@          (toJSString propertyName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"         ghcjs_dom_css_style_declaration_set_property ::         JSRef CSSStyleDeclaration ->@@ -131,7 +131,7 @@       (toJSString priority)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_css_style_declaration_item ::         JSRef CSSStyleDeclaration -> Word -> IO JSString@@ -151,7 +151,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"         ghcjs_dom_css_style_declaration_get_property_shorthand ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString@@ -173,7 +173,7 @@          (toJSString propertyName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)"         ghcjs_dom_css_style_declaration_is_property_implicit ::@@ -194,7 +194,7 @@       (toJSString propertyName)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssText\"] = $2;"         ghcjs_dom_css_style_declaration_set_css_text ::         JSRef CSSStyleDeclaration -> JSString -> IO ()@@ -213,7 +213,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssText\"]"         ghcjs_dom_css_style_declaration_get_css_text ::         JSRef CSSStyleDeclaration -> IO JSString@@ -232,7 +232,7 @@          (unCSSStyleDeclaration (toCSSStyleDeclaration self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_css_style_declaration_get_length ::         JSRef CSSStyleDeclaration -> IO Word@@ -249,7 +249,7 @@       (unCSSStyleDeclaration (toCSSStyleDeclaration self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"parentRule\"]"         ghcjs_dom_css_style_declaration_get_parent_rule ::         JSRef CSSStyleDeclaration -> IO (JSRef CSSRule)
src/GHCJS/DOM/CSSStyleSheet.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.CSSStyleSheet        (ghcjs_dom_css_style_sheet_insert_rule, cssStyleSheetInsertRule,@@ -27,7 +27,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"         ghcjs_dom_css_style_sheet_insert_rule ::         JSRef CSSStyleSheet -> JSString -> Word -> IO Word@@ -47,7 +47,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteRule\"]($2)"         ghcjs_dom_css_style_sheet_delete_rule ::         JSRef CSSStyleSheet -> Word -> IO ()@@ -65,7 +65,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)"         ghcjs_dom_css_style_sheet_add_rule ::         JSRef CSSStyleSheet -> JSString -> JSString -> Word -> IO Int@@ -86,7 +86,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeRule\"]($2)"         ghcjs_dom_css_style_sheet_remove_rule ::         JSRef CSSStyleSheet -> Word -> IO ()@@ -104,7 +104,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ownerRule\"]"         ghcjs_dom_css_style_sheet_get_owner_rule ::         JSRef CSSStyleSheet -> IO (JSRef CSSRule)@@ -122,7 +122,7 @@          (unCSSStyleSheet (toCSSStyleSheet self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssRules\"]"         ghcjs_dom_css_style_sheet_get_css_rules ::         JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)@@ -140,7 +140,7 @@          (unCSSStyleSheet (toCSSStyleSheet self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rules\"]"         ghcjs_dom_css_style_sheet_get_rules ::         JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)
src/GHCJS/DOM/CSSValue.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.CSSValue        (cCSS_INHERIT, cCSS_PRIMITIVE_VALUE, cCSS_VALUE_LIST, cCSS_CUSTOM,@@ -27,7 +27,7 @@ cCSS_CUSTOM = 3  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssText\"] = $2;"         ghcjs_dom_css_value_set_css_text ::         JSRef CSSValue -> JSString -> IO ()@@ -44,7 +44,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssText\"]"         ghcjs_dom_css_value_get_css_text :: JSRef CSSValue -> IO JSString #else @@ -59,7 +59,7 @@       (ghcjs_dom_css_value_get_css_text (unCSSValue (toCSSValue self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cssValueType\"]"         ghcjs_dom_css_value_get_css_value_type :: JSRef CSSValue -> IO Word #else
src/GHCJS/DOM/CharacterData.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.CharacterData        (ghcjs_dom_character_data_substring_data,@@ -28,7 +28,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"         ghcjs_dom_character_data_substring_data ::         JSRef CharacterData -> Word -> Word -> IO JSString@@ -49,7 +49,7 @@          length)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"appendData\"]($2)"         ghcjs_dom_character_data_append_data ::         JSRef CharacterData -> JSString -> IO ()@@ -67,7 +67,7 @@       (toJSString data')  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"insertData\"]($2, $3)"         ghcjs_dom_character_data_insert_data ::         JSRef CharacterData -> Word -> JSString -> IO ()@@ -87,7 +87,7 @@       (toJSString data')  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)"         ghcjs_dom_character_data_delete_data ::         JSRef CharacterData -> Word -> Word -> IO ()@@ -106,7 +106,7 @@       length  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)"         ghcjs_dom_character_data_replace_data ::         JSRef CharacterData -> Word -> Word -> JSString -> IO ()@@ -127,7 +127,7 @@       (toJSString data')  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"data\"] = $2;"         ghcjs_dom_character_data_set_data ::         JSRef CharacterData -> JSString -> IO ()@@ -145,7 +145,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"data\"]"         ghcjs_dom_character_data_get_data ::         JSRef CharacterData -> IO JSString@@ -163,7 +163,7 @@          (unCharacterData (toCharacterData self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_character_data_get_length ::         JSRef CharacterData -> IO Word
src/GHCJS/DOM/Console.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Console        (ghcjs_dom_console_time, consoleTime, ghcjs_dom_console_group_end,@@ -21,7 +21,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"time\"]($2)"         ghcjs_dom_console_time :: JSRef Console -> JSString -> IO () #else @@ -36,7 +36,7 @@       (toJSString title)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"groupEnd\"]()"         ghcjs_dom_console_group_end :: JSRef Console -> IO () #else
src/GHCJS/DOM/Css.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Css (CSSRule, IsCSSRule) where
src/GHCJS/DOM/DOMApplicationCache.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMApplicationCache        (ghcjs_dom_dom_application_cache_update, domApplicationCacheUpdate,@@ -33,7 +33,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"update\"]()"         ghcjs_dom_dom_application_cache_update ::         JSRef DOMApplicationCache -> IO ()@@ -50,7 +50,7 @@       (unDOMApplicationCache (toDOMApplicationCache self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"swapCache\"]()"         ghcjs_dom_dom_application_cache_swap_cache ::         JSRef DOMApplicationCache -> IO ()@@ -67,7 +67,7 @@       (unDOMApplicationCache (toDOMApplicationCache self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"abort\"]()"         ghcjs_dom_dom_application_cache_abort ::         JSRef DOMApplicationCache -> IO ()@@ -84,7 +84,7 @@       (unDOMApplicationCache (toDOMApplicationCache self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"         ghcjs_dom_dom_application_cache_dispatch_event ::@@ -110,7 +110,7 @@ cOBSOLETE = 5  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"status\"]"         ghcjs_dom_dom_application_cache_get_status ::         JSRef DOMApplicationCache -> IO Word
src/GHCJS/DOM/DOMImplementation.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMImplementation        (ghcjs_dom_dom_implementation_has_feature,@@ -30,7 +30,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_dom_implementation_has_feature ::@@ -53,7 +53,7 @@       (toJSString version)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createDocumentType\"]($2, $3,\n$4)"         ghcjs_dom_dom_implementation_create_document_type ::@@ -84,7 +84,7 @@          (toJSString systemId))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createDocument\"]($2, $3, $4)"         ghcjs_dom_dom_implementation_create_document ::@@ -115,7 +115,7 @@          (maybe jsNull (unDocumentType . toDocumentType) doctype))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createCSSStyleSheet\"]($2,\n$3)"         ghcjs_dom_dom_implementation_create_css_style_sheet ::@@ -141,7 +141,7 @@          (toJSString media))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"         ghcjs_dom_dom_implementation_create_html_document ::         JSRef DOMImplementation -> JSString -> IO (JSRef HTMLDocument)
src/GHCJS/DOM/DOMMimeType.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMMimeType        (ghcjs_dom_dom_mime_type_get_suffixes, domMimeTypeGetSuffixes,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"suffixes\"]"         ghcjs_dom_dom_mime_type_get_suffixes ::         JSRef DOMMimeType -> IO JSString@@ -41,7 +41,7 @@          (unDOMMimeType (toDOMMimeType self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"description\"]"         ghcjs_dom_dom_mime_type_get_description ::         JSRef DOMMimeType -> IO JSString@@ -59,7 +59,7 @@          (unDOMMimeType (toDOMMimeType self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"enabledPlugin\"]"         ghcjs_dom_dom_mime_type_get_enabled_plugin ::         JSRef DOMMimeType -> IO (JSRef DOMPlugin)
src/GHCJS/DOM/DOMMimeTypeArray.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMMimeTypeArray        (ghcjs_dom_dom_mime_type_array_item, domMimeTypeArrayItem,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_mime_type_array_item ::         JSRef DOMMimeTypeArray -> Word -> IO (JSRef DOMMimeType)@@ -43,7 +43,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_mime_type_array_named_item ::         JSRef DOMMimeTypeArray -> JSString -> IO (JSRef DOMMimeType)@@ -64,7 +64,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_mime_type_array_get_length ::         JSRef DOMMimeTypeArray -> IO Word
src/GHCJS/DOM/DOMNamedFlowCollection.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMNamedFlowCollection        (ghcjs_dom_dom_named_flow_collection_item,@@ -26,7 +26,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_named_flow_collection_item ::         JSRef DOMNamedFlowCollection -> Word -> IO (JSRef WebKitNamedFlow)@@ -47,7 +47,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_named_flow_collection_named_item ::         JSRef DOMNamedFlowCollection ->@@ -69,7 +69,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_named_flow_collection_get_length ::         JSRef DOMNamedFlowCollection -> IO Word
src/GHCJS/DOM/DOMPlugin.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMPlugin        (ghcjs_dom_dom_plugin_item, domPluginItem,@@ -25,7 +25,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_plugin_item ::         JSRef DOMPlugin -> Word -> IO (JSRef DOMMimeType)@@ -42,7 +42,7 @@       (ghcjs_dom_dom_plugin_item (unDOMPlugin (toDOMPlugin self)) index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_plugin_named_item ::         JSRef DOMPlugin -> JSString -> IO (JSRef DOMMimeType)@@ -61,7 +61,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_dom_plugin_get_name :: JSRef DOMPlugin -> IO JSString #else @@ -76,7 +76,7 @@       (ghcjs_dom_dom_plugin_get_name (unDOMPlugin (toDOMPlugin self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"filename\"]"         ghcjs_dom_dom_plugin_get_filename :: JSRef DOMPlugin -> IO JSString #else @@ -92,7 +92,7 @@          (unDOMPlugin (toDOMPlugin self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"description\"]"         ghcjs_dom_dom_plugin_get_description ::         JSRef DOMPlugin -> IO JSString@@ -110,7 +110,7 @@          (unDOMPlugin (toDOMPlugin self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_plugin_get_length :: JSRef DOMPlugin -> IO Word #else
src/GHCJS/DOM/DOMPluginArray.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMPluginArray        (ghcjs_dom_dom_plugin_array_item, domPluginArrayItem,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_plugin_array_item ::         JSRef DOMPluginArray -> Word -> IO (JSRef DOMPlugin)@@ -43,7 +43,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_plugin_array_named_item ::         JSRef DOMPluginArray -> JSString -> IO (JSRef DOMPlugin)@@ -63,7 +63,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"refresh\"]($2)"         ghcjs_dom_dom_plugin_array_refresh ::         JSRef DOMPluginArray -> Bool -> IO ()@@ -81,7 +81,7 @@       reload  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_plugin_array_get_length ::         JSRef DOMPluginArray -> IO Word
src/GHCJS/DOM/DOMSecurityPolicy.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMSecurityPolicy        (ghcjs_dom_dom_security_policy_allows_connection_to,@@ -50,7 +50,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsConnectionTo\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_connection_to ::@@ -70,7 +70,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsFontFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_font_from ::@@ -90,7 +90,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsFormAction\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_form_action ::@@ -110,7 +110,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsFrameFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_frame_from ::@@ -130,7 +130,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsImageFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_image_from ::@@ -150,7 +150,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsMediaFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_media_from ::@@ -170,7 +170,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsObjectFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_object_from ::@@ -190,7 +190,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsPluginType\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_plugin_type ::@@ -210,7 +210,7 @@       (toJSString type')  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsScriptFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_script_from ::@@ -230,7 +230,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsStyleFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_style_from ::@@ -250,7 +250,7 @@       (toJSString url)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"allowsEval\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_allows_eval ::         JSRef DOMSecurityPolicy -> IO Bool@@ -267,7 +267,7 @@       (unDOMSecurityPolicy (toDOMSecurityPolicy self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsInlineScript\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_allows_inline_script ::@@ -285,7 +285,7 @@       (unDOMSecurityPolicy (toDOMSecurityPolicy self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"allowsInlineStyle\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_allows_inline_style ::@@ -303,7 +303,7 @@       (unDOMSecurityPolicy (toDOMSecurityPolicy self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"isActive\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_is_active ::         JSRef DOMSecurityPolicy -> IO Bool@@ -320,7 +320,7 @@       (unDOMSecurityPolicy (toDOMSecurityPolicy self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"reportURIs\"]"         ghcjs_dom_dom_security_policy_get_report_ur_is ::         JSRef DOMSecurityPolicy -> IO (JSRef DOMStringList)
src/GHCJS/DOM/DOMSelection.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMSelection        (ghcjs_dom_dom_selection_collapse, domSelectionCollapse,@@ -50,7 +50,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"collapse\"]($2, $3)"         ghcjs_dom_dom_selection_collapse ::         JSRef DOMSelection -> JSRef Node -> Int -> IO ()@@ -70,7 +70,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"collapseToEnd\"]()"         ghcjs_dom_dom_selection_collapse_to_end ::         JSRef DOMSelection -> IO ()@@ -86,7 +86,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"collapseToStart\"]()"         ghcjs_dom_dom_selection_collapse_to_start ::         JSRef DOMSelection -> IO ()@@ -103,7 +103,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteFromDocument\"]()"         ghcjs_dom_dom_selection_delete_from_document ::         JSRef DOMSelection -> IO ()@@ -120,7 +120,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"containsNode\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_dom_selection_contains_node ::@@ -141,7 +141,7 @@       allowPartial  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)"         ghcjs_dom_dom_selection_select_all_children ::         JSRef DOMSelection -> JSRef Node -> IO ()@@ -159,7 +159,7 @@       (maybe jsNull (unNode . toNode) node)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"extend\"]($2, $3)"         ghcjs_dom_dom_selection_extend ::         JSRef DOMSelection -> JSRef Node -> Int -> IO ()@@ -179,7 +179,7 @@       offset  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getRangeAt\"]($2)"         ghcjs_dom_dom_selection_get_range_at ::         JSRef DOMSelection -> Int -> IO (JSRef DOMRange)@@ -198,7 +198,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeAllRanges\"]()"         ghcjs_dom_dom_selection_remove_all_ranges ::         JSRef DOMSelection -> IO ()@@ -215,7 +215,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"addRange\"]($2)"         ghcjs_dom_dom_selection_add_range ::         JSRef DOMSelection -> JSRef DOMRange -> IO ()@@ -234,7 +234,7 @@       (maybe jsNull (unDOMRange . toDOMRange) range)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)"         ghcjs_dom_dom_selection_modify ::         JSRef DOMSelection -> JSString -> JSString -> JSString -> IO ()@@ -256,7 +256,7 @@       (toJSString granularity)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"setBaseAndExtent\"]($2, $3,\n$4, $5)"         ghcjs_dom_dom_selection_set_base_and_extent ::@@ -282,7 +282,7 @@       extentOffset  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setPosition\"]($2, $3)"         ghcjs_dom_dom_selection_set_position ::         JSRef DOMSelection -> JSRef Node -> Int -> IO ()@@ -302,7 +302,7 @@       offset  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"empty\"]()"         ghcjs_dom_dom_selection_empty :: JSRef DOMSelection -> IO () #else @@ -316,7 +316,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"anchorNode\"]"         ghcjs_dom_dom_selection_get_anchor_node ::         JSRef DOMSelection -> IO (JSRef Node)@@ -334,7 +334,7 @@          (unDOMSelection (toDOMSelection self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"anchorOffset\"]"         ghcjs_dom_dom_selection_get_anchor_offset ::         JSRef DOMSelection -> IO Int@@ -351,7 +351,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"focusNode\"]"         ghcjs_dom_dom_selection_get_focus_node ::         JSRef DOMSelection -> IO (JSRef Node)@@ -369,7 +369,7 @@          (unDOMSelection (toDOMSelection self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"focusOffset\"]"         ghcjs_dom_dom_selection_get_focus_offset ::         JSRef DOMSelection -> IO Int@@ -386,7 +386,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"isCollapsed\"] ? 1 : 0)"         ghcjs_dom_dom_selection_get_is_collapsed ::         JSRef DOMSelection -> IO Bool@@ -403,7 +403,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rangeCount\"]"         ghcjs_dom_dom_selection_get_range_count ::         JSRef DOMSelection -> IO Int@@ -420,7 +420,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"baseNode\"]"         ghcjs_dom_dom_selection_get_base_node ::         JSRef DOMSelection -> IO (JSRef Node)@@ -438,7 +438,7 @@          (unDOMSelection (toDOMSelection self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"baseOffset\"]"         ghcjs_dom_dom_selection_get_base_offset ::         JSRef DOMSelection -> IO Int@@ -455,7 +455,7 @@       (unDOMSelection (toDOMSelection self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"extentNode\"]"         ghcjs_dom_dom_selection_get_extent_node ::         JSRef DOMSelection -> IO (JSRef Node)@@ -473,7 +473,7 @@          (unDOMSelection (toDOMSelection self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"extentOffset\"]"         ghcjs_dom_dom_selection_get_extent_offset ::         JSRef DOMSelection -> IO Int
src/GHCJS/DOM/DOMSettableTokenList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMSettableTokenList        (ghcjs_dom_dom_settable_token_list_set_value,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_dom_settable_token_list_set_value ::         JSRef DOMSettableTokenList -> JSString -> IO ()@@ -43,7 +43,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_dom_settable_token_list_get_value ::         JSRef DOMSettableTokenList -> IO JSString
src/GHCJS/DOM/DOMStringList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMStringList        (ghcjs_dom_dom_string_list_item, domStringListItem,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_string_list_item ::         JSRef DOMStringList -> Word -> IO JSString@@ -43,7 +43,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         ghcjs_dom_dom_string_list_contains ::         JSRef DOMStringList -> JSString -> IO Bool@@ -62,7 +62,7 @@       (toJSString string)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_string_list_get_length ::         JSRef DOMStringList -> IO Word
src/GHCJS/DOM/DOMTokenList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMTokenList        (ghcjs_dom_dom_token_list_item, domTokenListItem,@@ -26,7 +26,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_token_list_item ::         JSRef DOMTokenList -> Word -> IO JSString@@ -46,7 +46,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         ghcjs_dom_dom_token_list_contains ::         JSRef DOMTokenList -> JSString -> IO Bool@@ -64,7 +64,7 @@       (toJSString token)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"add\"]($2)"         ghcjs_dom_dom_token_list_add ::         JSRef DOMTokenList -> JSString -> IO ()@@ -82,7 +82,7 @@       (toJSString token)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"remove\"]($2)"         ghcjs_dom_dom_token_list_remove ::         JSRef DOMTokenList -> JSString -> IO ()@@ -100,7 +100,7 @@       (toJSString token)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"toggle\"]($2) ? 1 : 0)"         ghcjs_dom_dom_token_list_toggle ::         JSRef DOMTokenList -> JSString -> IO Bool@@ -118,7 +118,7 @@       (toJSString token)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_token_list_get_length ::         JSRef DOMTokenList -> IO Word
src/GHCJS/DOM/DOMWindow.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMWindow        (ghcjs_dom_dom_window_get_selection, domWindowGetSelection,@@ -121,7 +121,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getSelection\"]()"         ghcjs_dom_dom_window_get_selection ::         JSRef DOMWindow -> IO (JSRef DOMSelection)@@ -139,7 +139,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"blur\"]()"         ghcjs_dom_dom_window_blur :: JSRef DOMWindow -> IO () #else @@ -152,7 +152,7 @@   = ghcjs_dom_dom_window_blur (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"print\"]()"         ghcjs_dom_dom_window_print :: JSRef DOMWindow -> IO () #else @@ -165,7 +165,7 @@   = ghcjs_dom_dom_window_print (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"stop\"]()"         ghcjs_dom_dom_window_stop :: JSRef DOMWindow -> IO () #else @@ -178,7 +178,7 @@   = ghcjs_dom_dom_window_stop (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alert\"]($2)"         ghcjs_dom_dom_window_alert :: JSRef DOMWindow -> JSString -> IO () #else @@ -193,7 +193,7 @@       (toJSString message)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"confirm\"]($2) ? 1 : 0)"         ghcjs_dom_dom_window_confirm ::         JSRef DOMWindow -> JSString -> IO Bool@@ -211,7 +211,7 @@       (toJSString message)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"prompt\"]($2, $3)"         ghcjs_dom_dom_window_prompt ::         JSRef DOMWindow -> JSString -> JSString -> IO JSString@@ -232,7 +232,7 @@          (toJSString defaultValue))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)"         ghcjs_dom_dom_window_find ::@@ -261,7 +261,7 @@       showDialog  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)"         ghcjs_dom_dom_window_scroll_by ::         JSRef DOMWindow -> Int -> Int -> IO ()@@ -278,7 +278,7 @@       y  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)"         ghcjs_dom_dom_window_scroll_to ::         JSRef DOMWindow -> Int -> Int -> IO ()@@ -295,7 +295,7 @@       y  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scroll\"]($2, $3)"         ghcjs_dom_dom_window_scroll ::         JSRef DOMWindow -> Int -> Int -> IO ()@@ -311,7 +311,7 @@   = ghcjs_dom_dom_window_scroll (unDOMWindow (toDOMWindow self)) x y  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)"         ghcjs_dom_dom_window_move_by ::         JSRef DOMWindow -> Float -> Float -> IO ()@@ -327,7 +327,7 @@   = ghcjs_dom_dom_window_move_by (unDOMWindow (toDOMWindow self)) x y  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)"         ghcjs_dom_dom_window_move_to ::         JSRef DOMWindow -> Float -> Float -> IO ()@@ -343,7 +343,7 @@   = ghcjs_dom_dom_window_move_to (unDOMWindow (toDOMWindow self)) x y  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)"         ghcjs_dom_dom_window_resize_by ::         JSRef DOMWindow -> Float -> Float -> IO ()@@ -360,7 +360,7 @@       y  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)"         ghcjs_dom_dom_window_resize_to ::         JSRef DOMWindow -> Float -> Float -> IO ()@@ -378,7 +378,7 @@       height  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"matchMedia\"]($2)"         ghcjs_dom_dom_window_match_media ::         JSRef DOMWindow -> JSString -> IO (JSRef MediaQueryList)@@ -397,7 +397,7 @@          (toJSString query))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)"         ghcjs_dom_dom_window_get_computed_style ::         JSRef DOMWindow ->@@ -422,7 +422,7 @@          (toJSString pseudoElement))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)"         ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node ::@@ -449,7 +449,7 @@          (maybe jsNull (unWebKitPoint . toWebKitPoint) p))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)"         ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page ::@@ -476,7 +476,7 @@          (maybe jsNull (unWebKitPoint . toWebKitPoint) p))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"         ghcjs_dom_dom_window_dispatch_event ::@@ -495,7 +495,7 @@       (maybe jsNull (unEvent . toEvent) evt)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"captureEvents\"]()"         ghcjs_dom_dom_window_capture_events :: JSRef DOMWindow -> IO () #else @@ -509,7 +509,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"releaseEvents\"]()"         ghcjs_dom_dom_window_release_events :: JSRef DOMWindow -> IO () #else @@ -523,7 +523,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"screen\"]"         ghcjs_dom_dom_window_get_screen ::         JSRef DOMWindow -> IO (JSRef DOMScreen)@@ -540,7 +540,7 @@       (ghcjs_dom_dom_window_get_screen (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"history\"]"         ghcjs_dom_dom_window_get_history ::         JSRef DOMWindow -> IO (JSRef History)@@ -557,7 +557,7 @@       (ghcjs_dom_dom_window_get_history (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"locationbar\"]"         ghcjs_dom_dom_window_get_locationbar ::         JSRef DOMWindow -> IO (JSRef BarProp)@@ -575,7 +575,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"menubar\"]"         ghcjs_dom_dom_window_get_menubar ::         JSRef DOMWindow -> IO (JSRef BarProp)@@ -592,7 +592,7 @@       (ghcjs_dom_dom_window_get_menubar (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"personalbar\"]"         ghcjs_dom_dom_window_get_personalbar ::         JSRef DOMWindow -> IO (JSRef BarProp)@@ -610,7 +610,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollbars\"]"         ghcjs_dom_dom_window_get_scrollbars ::         JSRef DOMWindow -> IO (JSRef BarProp)@@ -628,7 +628,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"statusbar\"]"         ghcjs_dom_dom_window_get_statusbar ::         JSRef DOMWindow -> IO (JSRef BarProp)@@ -646,7 +646,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"toolbar\"]"         ghcjs_dom_dom_window_get_toolbar ::         JSRef DOMWindow -> IO (JSRef BarProp)@@ -663,7 +663,7 @@       (ghcjs_dom_dom_window_get_toolbar (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"navigator\"]"         ghcjs_dom_dom_window_get_navigator ::         JSRef DOMWindow -> IO (JSRef Navigator)@@ -681,7 +681,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientInformation\"]"         ghcjs_dom_dom_window_get_client_information ::         JSRef DOMWindow -> IO (JSRef Navigator)@@ -699,7 +699,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frameElement\"]"         ghcjs_dom_dom_window_get_frame_element ::         JSRef DOMWindow -> IO (JSRef Element)@@ -717,7 +717,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"offscreenBuffering\"] ? 1 : 0)"         ghcjs_dom_dom_window_get_offscreen_buffering ::@@ -735,7 +735,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"outerHeight\"]"         ghcjs_dom_dom_window_get_outer_height :: JSRef DOMWindow -> IO Int #else @@ -749,7 +749,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"outerWidth\"]"         ghcjs_dom_dom_window_get_outer_width :: JSRef DOMWindow -> IO Int #else @@ -763,7 +763,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"innerHeight\"]"         ghcjs_dom_dom_window_get_inner_height :: JSRef DOMWindow -> IO Int #else @@ -777,7 +777,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"innerWidth\"]"         ghcjs_dom_dom_window_get_inner_width :: JSRef DOMWindow -> IO Int #else @@ -791,7 +791,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"screenX\"]"         ghcjs_dom_dom_window_get_screen_x :: JSRef DOMWindow -> IO Int #else @@ -805,7 +805,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"screenY\"]"         ghcjs_dom_dom_window_get_screen_y :: JSRef DOMWindow -> IO Int #else @@ -819,7 +819,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"screenLeft\"]"         ghcjs_dom_dom_window_get_screen_left :: JSRef DOMWindow -> IO Int #else @@ -833,7 +833,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"screenTop\"]"         ghcjs_dom_dom_window_get_screen_top :: JSRef DOMWindow -> IO Int #else @@ -847,7 +847,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollX\"]"         ghcjs_dom_dom_window_get_scroll_x :: JSRef DOMWindow -> IO Int #else @@ -861,7 +861,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollY\"]"         ghcjs_dom_dom_window_get_scroll_y :: JSRef DOMWindow -> IO Int #else @@ -875,7 +875,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pageXOffset\"]"         ghcjs_dom_dom_window_get_page_x_offset :: JSRef DOMWindow -> IO Int #else @@ -889,7 +889,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pageYOffset\"]"         ghcjs_dom_dom_window_get_page_y_offset :: JSRef DOMWindow -> IO Int #else @@ -903,7 +903,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"closed\"] ? 1 : 0)"         ghcjs_dom_dom_window_get_closed :: JSRef DOMWindow -> IO Bool #else @@ -916,7 +916,7 @@   = ghcjs_dom_dom_window_get_closed (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_window_get_length :: JSRef DOMWindow -> IO Word #else @@ -929,7 +929,7 @@   = ghcjs_dom_dom_window_get_length (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_dom_window_set_name ::         JSRef DOMWindow -> JSString -> IO ()@@ -946,7 +946,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_dom_window_get_name :: JSRef DOMWindow -> IO JSString #else @@ -961,7 +961,7 @@       (ghcjs_dom_dom_window_get_name (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"status\"] = $2;"         ghcjs_dom_dom_window_set_status ::         JSRef DOMWindow -> JSString -> IO ()@@ -978,7 +978,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"status\"]"         ghcjs_dom_dom_window_get_status :: JSRef DOMWindow -> IO JSString #else @@ -993,7 +993,7 @@       (ghcjs_dom_dom_window_get_status (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defaultStatus\"] = $2;"         ghcjs_dom_dom_window_set_default_status ::         JSRef DOMWindow -> JSString -> IO ()@@ -1011,7 +1011,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defaultStatus\"]"         ghcjs_dom_dom_window_get_default_status ::         JSRef DOMWindow -> IO JSString@@ -1029,7 +1029,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"self\"]"         ghcjs_dom_dom_window_get_self ::         JSRef DOMWindow -> IO (JSRef DOMWindow)@@ -1046,7 +1046,7 @@       (ghcjs_dom_dom_window_get_self (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"window\"]"         ghcjs_dom_dom_window_get_window ::         JSRef DOMWindow -> IO (JSRef DOMWindow)@@ -1063,7 +1063,7 @@       (ghcjs_dom_dom_window_get_window (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frames\"]"         ghcjs_dom_dom_window_get_frames ::         JSRef DOMWindow -> IO (JSRef DOMWindow)@@ -1080,7 +1080,7 @@       (ghcjs_dom_dom_window_get_frames (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"opener\"]"         ghcjs_dom_dom_window_get_opener ::         JSRef DOMWindow -> IO (JSRef DOMWindow)@@ -1097,7 +1097,7 @@       (ghcjs_dom_dom_window_get_opener (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"parent\"]"         ghcjs_dom_dom_window_get_parent ::         JSRef DOMWindow -> IO (JSRef DOMWindow)@@ -1114,7 +1114,7 @@       (ghcjs_dom_dom_window_get_parent (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"top\"]"         ghcjs_dom_dom_window_get_top ::         JSRef DOMWindow -> IO (JSRef DOMWindow)@@ -1131,7 +1131,7 @@       (ghcjs_dom_dom_window_get_top (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"document\"]"         ghcjs_dom_dom_window_get_document ::         JSRef DOMWindow -> IO (JSRef Document)@@ -1149,7 +1149,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"styleMedia\"]"         ghcjs_dom_dom_window_get_style_media ::         JSRef DOMWindow -> IO (JSRef StyleMedia)@@ -1167,7 +1167,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"devicePixelRatio\"]"         ghcjs_dom_dom_window_get_device_pixel_ratio ::         JSRef DOMWindow -> IO Double@@ -1184,7 +1184,7 @@       (unDOMWindow (toDOMWindow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"applicationCache\"]"         ghcjs_dom_dom_window_get_application_cache ::         JSRef DOMWindow -> IO (JSRef DOMApplicationCache)@@ -1202,7 +1202,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sessionStorage\"]"         ghcjs_dom_dom_window_get_session_storage ::         JSRef DOMWindow -> IO (JSRef Storage)@@ -1220,7 +1220,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"localStorage\"]"         ghcjs_dom_dom_window_get_local_storage ::         JSRef DOMWindow -> IO (JSRef Storage)@@ -1238,7 +1238,7 @@          (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"console\"]"         ghcjs_dom_dom_window_get_console ::         JSRef DOMWindow -> IO (JSRef Console)@@ -1255,7 +1255,7 @@       (ghcjs_dom_dom_window_get_console (unDOMWindow (toDOMWindow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"CSS\"]"         ghcjs_dom_dom_window_get_css ::         JSRef DOMWindow -> IO (JSRef DOMWindowCSS)
src/GHCJS/DOM/DOMWindowCSS.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMWindowCSS        (ghcjs_dom_dom_window_css_supports, domWindowCSSSupports,@@ -21,17 +21,17 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "($1[\"supports\"]($2, $3) ? 1 : 0)"         ghcjs_dom_dom_window_css_supports ::         JSRef DOMWindowCSS -> JSString -> JSString -> IO Bool-#else +#else ghcjs_dom_dom_window_css_supports ::                                     JSRef DOMWindowCSS -> JSString -> JSString -> IO Bool ghcjs_dom_dom_window_css_supports = undefined #endif- + domWindowCSSSupports ::                      (IsDOMWindowCSS self, ToJSString property, ToJSString value) =>                        self -> property -> value -> IO Bool@@ -41,24 +41,6 @@       (toJSString property)       (toJSString value) --#ifdef __GHCJS__ -foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"-        ghcjs_dom_dom_window_css_supports ::-        JSRef DOMWindowCSS -> JSString -> IO Bool-#else -ghcjs_dom_dom_window_css_supports ::-                                    JSRef DOMWindowCSS -> JSString -> IO Bool-ghcjs_dom_dom_window_css_supports = undefined-#endif- -domWindowCSSSupports ::-                     (IsDOMWindowCSS self, ToJSString conditionText) =>-                       self -> conditionText -> IO Bool-domWindowCSSSupports self conditionText-  = ghcjs_dom_dom_window_css_supports-      (unDOMWindowCSS (toDOMWindowCSS self))-      (toJSString conditionText) #else module GHCJS.DOM.DOMWindowCSS (   module Graphics.UI.Gtk.WebKit.DOM.DOMWindowCSS
src/GHCJS/DOM/Document.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Document        (ghcjs_dom_document_create_element, documentCreateElement,@@ -136,7 +136,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createElement\"]($2)"         ghcjs_dom_document_create_element ::         JSRef Document -> JSString -> IO (JSRef Element)@@ -155,7 +155,7 @@          (toJSString tagName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"         ghcjs_dom_document_create_document_fragment ::         JSRef Document -> IO (JSRef DocumentFragment)@@ -173,7 +173,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createTextNode\"]($2)"         ghcjs_dom_document_create_text_node ::         JSRef Document -> JSString -> IO (JSRef Text)@@ -192,7 +192,7 @@          (toJSString data'))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createComment\"]($2)"         ghcjs_dom_document_create_comment ::         JSRef Document -> JSString -> IO (JSRef Comment)@@ -211,7 +211,7 @@          (toJSString data'))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"         ghcjs_dom_document_create_cdata_section ::         JSRef Document -> JSString -> IO (JSRef CDATASection)@@ -231,7 +231,7 @@          (toJSString data'))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createProcessingInstruction\"]($2,\n$3)"         ghcjs_dom_document_create_processing_instruction ::@@ -256,7 +256,7 @@          (toJSString data'))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createAttribute\"]($2)"         ghcjs_dom_document_create_attribute ::         JSRef Document -> JSString -> IO (JSRef DOMAttr)@@ -275,7 +275,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createEntityReference\"]($2)"         ghcjs_dom_document_create_entity_reference ::@@ -297,7 +297,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"         ghcjs_dom_document_get_elements_by_tag_name ::         JSRef Document -> JSString -> IO (JSRef NodeList)@@ -317,7 +317,7 @@          (toJSString tagname))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"         ghcjs_dom_document_import_node ::         JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)@@ -337,7 +337,7 @@          deep)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"         ghcjs_dom_document_create_element_ns ::         JSRef Document -> JSString -> JSString -> IO (JSRef Element)@@ -359,7 +359,7 @@          (toJSString qualifiedName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createAttributeNS\"]($2, $3)"         ghcjs_dom_document_create_attribute_ns ::@@ -383,7 +383,7 @@          (toJSString qualifiedName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"getElementsByTagNameNS\"]($2,\n$3)"         ghcjs_dom_document_get_elements_by_tag_name_ns ::@@ -406,7 +406,7 @@          (toJSString localName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getElementById\"]($2)"         ghcjs_dom_document_get_element_by_id ::         JSRef Document -> JSString -> IO (JSRef Element)@@ -426,7 +426,7 @@          (toJSString elementId))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"adoptNode\"]($2)"         ghcjs_dom_document_adopt_node ::         JSRef Document -> JSRef Node -> IO (JSRef Node)@@ -445,7 +445,7 @@          (maybe jsNull (unNode . toNode) source))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createEvent\"]($2)"         ghcjs_dom_document_create_event ::         JSRef Document -> JSString -> IO (JSRef Event)@@ -464,7 +464,7 @@          (toJSString eventType))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createRange\"]()"         ghcjs_dom_document_create_range ::         JSRef Document -> IO (JSRef DOMRange)@@ -481,7 +481,7 @@       (ghcjs_dom_document_create_range (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)"         ghcjs_dom_document_create_node_iterator ::@@ -513,7 +513,7 @@          expandEntityReferences)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)"         ghcjs_dom_document_create_tree_walker ::@@ -544,7 +544,7 @@          expandEntityReferences)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"         ghcjs_dom_document_get_override_style ::         JSRef Document ->@@ -569,7 +569,7 @@          (toJSString pseudoElement))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"         ghcjs_dom_document_create_expression ::         JSRef Document ->@@ -594,7 +594,7 @@          (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"         ghcjs_dom_document_create_ns_resolver ::         JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)@@ -614,7 +614,7 @@          (maybe jsNull (unNode . toNode) nodeResolver))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" ghcjs_dom_document_evaluate         ::@@ -651,7 +651,7 @@          (maybe jsNull (unXPathResult . toXPathResult) inResult))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)"         ghcjs_dom_document_exec_command ::@@ -672,7 +672,7 @@       (toJSString value)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)"         ghcjs_dom_document_query_command_enabled ::@@ -691,7 +691,7 @@       (toJSString command)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"         ghcjs_dom_document_query_command_indeterm ::@@ -710,7 +710,7 @@       (toJSString command)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"queryCommandState\"]($2) ? 1 : 0)"         ghcjs_dom_document_query_command_state ::@@ -729,7 +729,7 @@       (toJSString command)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"         ghcjs_dom_document_query_command_supported ::@@ -748,7 +748,7 @@       (toJSString command)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"         ghcjs_dom_document_query_command_value ::         JSRef Document -> JSString -> IO JSString@@ -768,7 +768,7 @@          (toJSString command))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"         ghcjs_dom_document_get_elements_by_name ::         JSRef Document -> JSString -> IO (JSRef NodeList)@@ -788,7 +788,7 @@          (toJSString elementName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"         ghcjs_dom_document_element_from_point ::         JSRef Document -> Int -> Int -> IO (JSRef Element)@@ -808,7 +808,7 @@          y)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"caretRangeFromPoint\"]($2,\n$3)"         ghcjs_dom_document_caret_range_from_point ::@@ -829,7 +829,7 @@          y)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"createCSSStyleDeclaration\"]()"         ghcjs_dom_document_create_css_style_declaration ::@@ -848,7 +848,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"getElementsByClassName\"]($2)"         ghcjs_dom_document_get_elements_by_class_name ::@@ -869,7 +869,7 @@          (toJSString tagname))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"querySelector\"]($2)"         ghcjs_dom_document_query_selector ::         JSRef Document -> JSString -> IO (JSRef Element)@@ -888,7 +888,7 @@          (toJSString selectors))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         ghcjs_dom_document_query_selector_all ::         JSRef Document -> JSString -> IO (JSRef NodeList)@@ -908,7 +908,7 @@          (toJSString selectors))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitExitPointerLock\"]()"         ghcjs_dom_document_webkit_exit_pointer_lock ::         JSRef Document -> IO ()@@ -924,7 +924,7 @@       (unDocument (toDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"         ghcjs_dom_document_webkit_get_named_flows ::         JSRef Document -> IO (JSRef DOMNamedFlowCollection)@@ -942,7 +942,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"doctype\"]"         ghcjs_dom_document_get_doctype ::         JSRef Document -> IO (JSRef DocumentType)@@ -959,7 +959,7 @@       (ghcjs_dom_document_get_doctype (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"implementation\"]"         ghcjs_dom_document_get_implementation ::         JSRef Document -> IO (JSRef DOMImplementation)@@ -977,7 +977,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"documentElement\"]"         ghcjs_dom_document_get_document_element ::         JSRef Document -> IO (JSRef Element)@@ -995,7 +995,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"inputEncoding\"]"         ghcjs_dom_document_get_input_encoding ::         JSRef Document -> IO JSString@@ -1013,7 +1013,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"xmlEncoding\"]"         ghcjs_dom_document_get_xml_encoding ::         JSRef Document -> IO JSString@@ -1031,7 +1031,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"         ghcjs_dom_document_set_xml_version ::         JSRef Document -> JSString -> IO ()@@ -1048,7 +1048,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"xmlVersion\"]"         ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString #else @@ -1063,7 +1063,7 @@       (ghcjs_dom_document_get_xml_version (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"         ghcjs_dom_document_set_xml_standalone ::         JSRef Document -> Bool -> IO ()@@ -1081,7 +1081,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"         ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool #else @@ -1095,7 +1095,7 @@       (unDocument (toDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"documentURI\"] = $2;"         ghcjs_dom_document_set_document_uri ::         JSRef Document -> JSString -> IO ()@@ -1113,7 +1113,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"documentURI\"]"         ghcjs_dom_document_get_document_uri ::         JSRef Document -> IO JSString@@ -1131,7 +1131,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defaultView\"]"         ghcjs_dom_document_get_default_view ::         JSRef Document -> IO (JSRef DOMWindow)@@ -1149,7 +1149,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"styleSheets\"]"         ghcjs_dom_document_get_style_sheets ::         JSRef Document -> IO (JSRef StyleSheetList)@@ -1167,7 +1167,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"title\"] = $2;"         ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO () #else @@ -1182,7 +1182,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"title\"]"         ghcjs_dom_document_get_title :: JSRef Document -> IO JSString #else @@ -1197,7 +1197,7 @@       (ghcjs_dom_document_get_title (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"referrer\"]"         ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString #else @@ -1212,7 +1212,7 @@       (ghcjs_dom_document_get_referrer (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"domain\"]"         ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString #else @@ -1227,7 +1227,7 @@       (ghcjs_dom_document_get_domain (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cookie\"] = $2;"         ghcjs_dom_document_set_cookie ::         JSRef Document -> JSString -> IO ()@@ -1244,7 +1244,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cookie\"]"         ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString #else @@ -1259,7 +1259,7 @@       (ghcjs_dom_document_get_cookie (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"body\"] = $2;"         ghcjs_dom_document_set_body ::         JSRef Document -> JSRef HTMLElement -> IO ()@@ -1276,7 +1276,7 @@       (maybe jsNull (unHTMLElement . toHTMLElement) val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"body\"]"         ghcjs_dom_document_get_body ::         JSRef Document -> IO (JSRef HTMLElement)@@ -1293,7 +1293,7 @@       (ghcjs_dom_document_get_body (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"head\"]"         ghcjs_dom_document_get_head ::         JSRef Document -> IO (JSRef HTMLHeadElement)@@ -1310,7 +1310,7 @@       (ghcjs_dom_document_get_head (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"images\"]"         ghcjs_dom_document_get_images ::         JSRef Document -> IO (JSRef HTMLCollection)@@ -1327,7 +1327,7 @@       (ghcjs_dom_document_get_images (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"applets\"]"         ghcjs_dom_document_get_applets ::         JSRef Document -> IO (JSRef HTMLCollection)@@ -1344,7 +1344,7 @@       (ghcjs_dom_document_get_applets (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"links\"]"         ghcjs_dom_document_get_links ::         JSRef Document -> IO (JSRef HTMLCollection)@@ -1361,7 +1361,7 @@       (ghcjs_dom_document_get_links (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"forms\"]"         ghcjs_dom_document_get_forms ::         JSRef Document -> IO (JSRef HTMLCollection)@@ -1378,7 +1378,7 @@       (ghcjs_dom_document_get_forms (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"anchors\"]"         ghcjs_dom_document_get_anchors ::         JSRef Document -> IO (JSRef HTMLCollection)@@ -1395,7 +1395,7 @@       (ghcjs_dom_document_get_anchors (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lastModified\"]"         ghcjs_dom_document_get_last_modified ::         JSRef Document -> IO JSString@@ -1413,7 +1413,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"] = $2;"         ghcjs_dom_document_set_charset ::         JSRef Document -> JSString -> IO ()@@ -1430,7 +1430,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"]"         ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString #else @@ -1445,7 +1445,7 @@       (ghcjs_dom_document_get_charset (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defaultCharset\"]"         ghcjs_dom_document_get_default_charset ::         JSRef Document -> IO JSString@@ -1463,7 +1463,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"readyState\"]"         ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString #else @@ -1478,7 +1478,7 @@       (ghcjs_dom_document_get_ready_state (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"characterSet\"]"         ghcjs_dom_document_get_character_set ::         JSRef Document -> IO JSString@@ -1496,7 +1496,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"         ghcjs_dom_document_get_preferred_stylesheet_set ::         JSRef Document -> IO JSString@@ -1514,7 +1514,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"selectedStylesheetSet\"] = $2;"         ghcjs_dom_document_set_selected_stylesheet_set ::@@ -1533,7 +1533,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"         ghcjs_dom_document_get_selected_stylesheet_set ::         JSRef Document -> IO JSString@@ -1551,7 +1551,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"compatMode\"]"         ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString #else @@ -1566,7 +1566,7 @@       (ghcjs_dom_document_get_compat_mode (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitPointerLockElement\"]"         ghcjs_dom_document_get_webkit_pointer_lock_element ::         JSRef Document -> IO (JSRef Element)@@ -1796,7 +1796,7 @@   = (connect "securitypolicyviolation")  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"visibilityState\"]"         ghcjs_dom_document_get_visibility_state ::         JSRef Document -> IO JSString@@ -1814,7 +1814,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"         ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool #else @@ -1827,7 +1827,7 @@   = ghcjs_dom_document_get_hidden (unDocument (toDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"securityPolicy\"]"         ghcjs_dom_document_get_security_policy ::         JSRef Document -> IO (JSRef DOMSecurityPolicy)@@ -1845,7 +1845,7 @@          (unDocument (toDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"currentScript\"]"         ghcjs_dom_document_get_current_script ::         JSRef Document -> IO (JSRef HTMLScriptElement)
src/GHCJS/DOM/DocumentType.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DocumentType        (ghcjs_dom_document_type_get_name, documentTypeGetName,@@ -26,7 +26,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_document_type_get_name ::         JSRef DocumentType -> IO JSString@@ -44,7 +44,7 @@          (unDocumentType (toDocumentType self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"entities\"]"         ghcjs_dom_document_type_get_entities ::         JSRef DocumentType -> IO (JSRef NamedNodeMap)@@ -62,7 +62,7 @@          (unDocumentType (toDocumentType self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"notations\"]"         ghcjs_dom_document_type_get_notations ::         JSRef DocumentType -> IO (JSRef NamedNodeMap)@@ -80,7 +80,7 @@          (unDocumentType (toDocumentType self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"publicId\"]"         ghcjs_dom_document_type_get_public_id ::         JSRef DocumentType -> IO JSString@@ -98,7 +98,7 @@          (unDocumentType (toDocumentType self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"systemId\"]"         ghcjs_dom_document_type_get_system_id ::         JSRef DocumentType -> IO JSString@@ -116,7 +116,7 @@          (unDocumentType (toDocumentType self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"internalSubset\"]"         ghcjs_dom_document_type_get_internal_subset ::         JSRef DocumentType -> IO JSString
src/GHCJS/DOM/Element.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Element        (ghcjs_dom_element_get_attribute, elementGetAttribute,@@ -99,7 +99,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getAttribute\"]($2)"         ghcjs_dom_element_get_attribute ::         JSRef Element -> JSString -> IO JSString@@ -118,7 +118,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"         ghcjs_dom_element_set_attribute ::         JSRef Element -> JSString -> JSString -> IO ()@@ -137,7 +137,7 @@       (toJSString value)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeAttribute\"]($2)"         ghcjs_dom_element_remove_attribute ::         JSRef Element -> JSString -> IO ()@@ -154,7 +154,7 @@       (toJSString name)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)"         ghcjs_dom_element_get_attribute_node ::         JSRef Element -> JSString -> IO (JSRef DOMAttr)@@ -173,7 +173,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"         ghcjs_dom_element_set_attribute_node ::         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)@@ -192,7 +192,7 @@          (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"         ghcjs_dom_element_remove_attribute_node ::         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)@@ -212,7 +212,7 @@          (maybe jsNull (unDOMAttr . toDOMAttr) oldAttr))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"         ghcjs_dom_element_get_elements_by_tag_name ::         JSRef Element -> JSString -> IO (JSRef NodeList)@@ -232,7 +232,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"hasAttributes\"]() ? 1 : 0)"         ghcjs_dom_element_has_attributes :: JSRef Element -> IO Bool@@ -246,7 +246,7 @@   = ghcjs_dom_element_has_attributes (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"         ghcjs_dom_element_get_attribute_ns ::         JSRef Element -> JSString -> JSString -> IO JSString@@ -267,7 +267,7 @@          (toJSString localName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"setAttributeNS\"]($2, $3, $4)"         ghcjs_dom_element_set_attribute_ns ::@@ -289,7 +289,7 @@       (toJSString value)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"removeAttributeNS\"]($2, $3)"         ghcjs_dom_element_remove_attribute_ns ::@@ -310,7 +310,7 @@       (toJSString localName)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"getElementsByTagNameNS\"]($2,\n$3)"         ghcjs_dom_element_get_elements_by_tag_name_ns ::@@ -333,7 +333,7 @@          (toJSString localName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"getAttributeNodeNS\"]($2, $3)"         ghcjs_dom_element_get_attribute_node_ns ::@@ -356,7 +356,7 @@          (toJSString localName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"         ghcjs_dom_element_set_attribute_node_ns ::         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)@@ -376,7 +376,7 @@          (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"hasAttribute\"]($2) ? 1 : 0)"         ghcjs_dom_element_has_attribute ::@@ -394,7 +394,7 @@       (toJSString name)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_element_has_attribute_ns ::@@ -414,7 +414,7 @@       (toJSString localName)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"focus\"]()"         ghcjs_dom_element_focus :: JSRef Element -> IO () #else @@ -427,7 +427,7 @@   = ghcjs_dom_element_focus (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"blur\"]()"         ghcjs_dom_element_blur :: JSRef Element -> IO () #else @@ -440,7 +440,7 @@   = ghcjs_dom_element_blur (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)"         ghcjs_dom_element_scroll_into_view ::         JSRef Element -> Bool -> IO ()@@ -456,7 +456,7 @@       alignWithTop  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"scrollIntoViewIfNeeded\"]($2)"         ghcjs_dom_element_scroll_into_view_if_needed ::@@ -475,7 +475,7 @@       centerIfNeeded  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"         ghcjs_dom_element_scroll_by_lines :: JSRef Element -> Int -> IO () #else @@ -489,7 +489,7 @@       lines  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"         ghcjs_dom_element_scroll_by_pages :: JSRef Element -> Int -> IO () #else @@ -503,7 +503,7 @@       pages  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"getElementsByClassName\"]($2)"         ghcjs_dom_element_get_elements_by_class_name ::@@ -524,7 +524,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"querySelector\"]($2)"         ghcjs_dom_element_query_selector ::         JSRef Element -> JSString -> IO (JSRef Element)@@ -543,7 +543,7 @@          (toJSString selectors))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         ghcjs_dom_element_query_selector_all ::         JSRef Element -> JSString -> IO (JSRef NodeList)@@ -562,7 +562,7 @@          (toJSString selectors))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"         ghcjs_dom_element_webkit_matches_selector ::@@ -582,7 +582,7 @@       (toJSString selectors)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"webkitRequestPointerLock\"]()"         ghcjs_dom_element_webkit_request_pointer_lock ::@@ -600,7 +600,7 @@       (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tagName\"]"         ghcjs_dom_element_get_tag_name :: JSRef Element -> IO JSString #else @@ -615,7 +615,7 @@       (ghcjs_dom_element_get_tag_name (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"attributes\"]"         ghcjs_dom_element_get_attributes ::         JSRef Element -> IO (JSRef NamedNodeMap)@@ -632,7 +632,7 @@       (ghcjs_dom_element_get_attributes (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"style\"]"         ghcjs_dom_element_get_style ::         JSRef Element -> IO (JSRef CSSStyleDeclaration)@@ -649,7 +649,7 @@       (ghcjs_dom_element_get_style (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"id\"] = $2;"         ghcjs_dom_element_set_id :: JSRef Element -> JSString -> IO () #else @@ -664,7 +664,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"id\"]"         ghcjs_dom_element_get_id :: JSRef Element -> IO JSString #else @@ -679,7 +679,7 @@       (ghcjs_dom_element_get_id (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"offsetLeft\"]"         ghcjs_dom_element_get_offset_left :: JSRef Element -> IO Int #else @@ -692,7 +692,7 @@   = ghcjs_dom_element_get_offset_left (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"offsetTop\"]"         ghcjs_dom_element_get_offset_top :: JSRef Element -> IO Int #else @@ -705,7 +705,7 @@   = ghcjs_dom_element_get_offset_top (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"offsetWidth\"]"         ghcjs_dom_element_get_offset_width :: JSRef Element -> IO Int #else @@ -718,7 +718,7 @@   = ghcjs_dom_element_get_offset_width (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"offsetHeight\"]"         ghcjs_dom_element_get_offset_height :: JSRef Element -> IO Int #else @@ -731,7 +731,7 @@   = ghcjs_dom_element_get_offset_height (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"offsetParent\"]"         ghcjs_dom_element_get_offset_parent ::         JSRef Element -> IO (JSRef Element)@@ -748,7 +748,7 @@       (ghcjs_dom_element_get_offset_parent (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientLeft\"]"         ghcjs_dom_element_get_client_left :: JSRef Element -> IO Int #else @@ -761,7 +761,7 @@   = ghcjs_dom_element_get_client_left (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientTop\"]"         ghcjs_dom_element_get_client_top :: JSRef Element -> IO Int #else @@ -774,7 +774,7 @@   = ghcjs_dom_element_get_client_top (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientWidth\"]"         ghcjs_dom_element_get_client_width :: JSRef Element -> IO Int #else @@ -787,7 +787,7 @@   = ghcjs_dom_element_get_client_width (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientHeight\"]"         ghcjs_dom_element_get_client_height :: JSRef Element -> IO Int #else @@ -800,7 +800,7 @@   = ghcjs_dom_element_get_client_height (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;"         ghcjs_dom_element_set_scroll_left :: JSRef Element -> Int -> IO () #else @@ -814,7 +814,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollLeft\"]"         ghcjs_dom_element_get_scroll_left :: JSRef Element -> IO Int #else @@ -827,7 +827,7 @@   = ghcjs_dom_element_get_scroll_left (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollTop\"] = $2;"         ghcjs_dom_element_set_scroll_top :: JSRef Element -> Int -> IO () #else @@ -840,7 +840,7 @@   = ghcjs_dom_element_set_scroll_top (unElement (toElement self)) val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollTop\"]"         ghcjs_dom_element_get_scroll_top :: JSRef Element -> IO Int #else @@ -853,7 +853,7 @@   = ghcjs_dom_element_get_scroll_top (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollWidth\"]"         ghcjs_dom_element_get_scroll_width :: JSRef Element -> IO Int #else @@ -866,7 +866,7 @@   = ghcjs_dom_element_get_scroll_width (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollHeight\"]"         ghcjs_dom_element_get_scroll_height :: JSRef Element -> IO Int #else @@ -879,7 +879,7 @@   = ghcjs_dom_element_get_scroll_height (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"className\"] = $2;"         ghcjs_dom_element_set_class_name ::         JSRef Element -> JSString -> IO ()@@ -896,7 +896,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"className\"]"         ghcjs_dom_element_get_class_name :: JSRef Element -> IO JSString #else @@ -911,7 +911,7 @@       (ghcjs_dom_element_get_class_name (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"classList\"]"         ghcjs_dom_element_get_class_list ::         JSRef Element -> IO (JSRef DOMTokenList)@@ -928,7 +928,7 @@       (ghcjs_dom_element_get_class_list (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"firstElementChild\"]"         ghcjs_dom_element_get_first_element_child ::         JSRef Element -> IO (JSRef Element)@@ -946,7 +946,7 @@          (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lastElementChild\"]"         ghcjs_dom_element_get_last_element_child ::         JSRef Element -> IO (JSRef Element)@@ -964,7 +964,7 @@          (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"previousElementSibling\"]"         ghcjs_dom_element_get_previous_element_sibling ::         JSRef Element -> IO (JSRef Element)@@ -982,7 +982,7 @@          (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nextElementSibling\"]"         ghcjs_dom_element_get_next_element_sibling ::         JSRef Element -> IO (JSRef Element)@@ -1000,7 +1000,7 @@          (unElement (toElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"childElementCount\"]"         ghcjs_dom_element_get_child_element_count ::         JSRef Element -> IO Word@@ -1016,7 +1016,7 @@       (unElement (toElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitRegionOverset\"]"         ghcjs_dom_element_get_webkit_region_overset ::         JSRef Element -> IO JSString
src/GHCJS/DOM/Event.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Event        (ghcjs_dom_event_stop_propagation, eventStopPropagation,@@ -37,7 +37,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"stopPropagation\"]()"         ghcjs_dom_event_stop_propagation :: JSRef Event -> IO () #else @@ -50,7 +50,7 @@   = ghcjs_dom_event_stop_propagation (unEvent (toEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"preventDefault\"]()"         ghcjs_dom_event_prevent_default :: JSRef Event -> IO () #else @@ -63,7 +63,7 @@   = ghcjs_dom_event_prevent_default (unEvent (toEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)"         ghcjs_dom_event_init_event ::         JSRef Event -> JSString -> Bool -> Bool -> IO ()@@ -83,7 +83,7 @@       cancelableArg  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"stopImmediatePropagation\"]()"         ghcjs_dom_event_stop_immediate_propagation :: JSRef Event -> IO ()@@ -118,7 +118,7 @@ cCHANGE = 32768  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_event_get_target :: JSRef Event -> IO (JSRef EventTarget) #else @@ -132,7 +132,7 @@       (ghcjs_dom_event_get_target (unEvent (toEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"currentTarget\"]"         ghcjs_dom_event_get_current_target ::         JSRef Event -> IO (JSRef EventTarget)@@ -149,7 +149,7 @@       (ghcjs_dom_event_get_current_target (unEvent (toEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"eventPhase\"]"         ghcjs_dom_event_get_event_phase :: JSRef Event -> IO Word #else @@ -162,7 +162,7 @@   = ghcjs_dom_event_get_event_phase (unEvent (toEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)"         ghcjs_dom_event_get_bubbles :: JSRef Event -> IO Bool #else @@ -175,7 +175,7 @@   = ghcjs_dom_event_get_bubbles (unEvent (toEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)"         ghcjs_dom_event_get_cancelable :: JSRef Event -> IO Bool #else @@ -188,7 +188,7 @@   = ghcjs_dom_event_get_cancelable (unEvent (toEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"timeStamp\"]"         ghcjs_dom_event_get_time_stamp :: JSRef Event -> IO Word #else @@ -202,7 +202,7 @@       (ghcjs_dom_event_get_time_stamp (unEvent (toEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"defaultPrevented\"] ? 1 : 0)"         ghcjs_dom_event_get_default_prevented :: JSRef Event -> IO Bool@@ -216,7 +216,7 @@   = ghcjs_dom_event_get_default_prevented (unEvent (toEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"srcElement\"]"         ghcjs_dom_event_get_src_element ::         JSRef Event -> IO (JSRef EventTarget)@@ -233,7 +233,7 @@       (ghcjs_dom_event_get_src_element (unEvent (toEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"returnValue\"] = $2;"         ghcjs_dom_event_set_return_value :: JSRef Event -> Bool -> IO () #else @@ -246,7 +246,7 @@   = ghcjs_dom_event_set_return_value (unEvent (toEvent self)) val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)"         ghcjs_dom_event_get_return_value :: JSRef Event -> IO Bool #else @@ -259,7 +259,7 @@   = ghcjs_dom_event_get_return_value (unEvent (toEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;"         ghcjs_dom_event_set_cancel_bubble :: JSRef Event -> Bool -> IO () #else @@ -272,7 +272,7 @@   = ghcjs_dom_event_set_cancel_bubble (unEvent (toEvent self)) val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)"         ghcjs_dom_event_get_cancel_bubble :: JSRef Event -> IO Bool #else
src/GHCJS/DOM/EventTargetClosures.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface #-} module GHCJS.DOM.EventTargetClosures        (eventTargetAddEventListener) where@@ -9,7 +9,7 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "($1[\"addEventListener\"]($2, $3, $4) ? 1 : 0)"         ghcjs_dom_event_target_add_event_listener ::@@ -24,7 +24,7 @@                          (GObjectClass self, IsEvent event) =>                            self -> String -> Bool -> (self -> event -> IO ()) -> IO Bool eventTargetAddEventListener self eventName bubble user = do-    callback <- syncCallback1 False True $ \e -> user self (unsafeCastGObject $ GObject e)+    callback <- syncCallback1 NeverRetain True $ \e -> user self (unsafeCastGObject $ GObject e)     ghcjs_dom_event_target_add_event_listener         (unGObject (toGObject self))         (toJSString eventName)
src/GHCJS/DOM/Events.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Events (Event, IsEvent) where
src/GHCJS/DOM/File.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.File        (ghcjs_dom_file_get_name, fileGetName,@@ -21,7 +21,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_file_get_name :: JSRef File -> IO JSString #else @@ -35,7 +35,7 @@   = fromJSString <$> (ghcjs_dom_file_get_name (unFile (toFile self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitRelativePath\"]"         ghcjs_dom_file_get_webkit_relative_path ::         JSRef File -> IO JSString
src/GHCJS/DOM/FileList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.FileList        (ghcjs_dom_file_list_item, fileListItem,@@ -21,7 +21,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_file_list_item ::         JSRef FileList -> Word -> IO (JSRef File)@@ -38,7 +38,7 @@       (ghcjs_dom_file_list_item (unFileList (toFileList self)) index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_file_list_get_length :: JSRef FileList -> IO Word #else
src/GHCJS/DOM/Geolocation.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Geolocation        (ghcjs_dom_geolocation_clear_watch, geolocationClearWatch,@@ -21,7 +21,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clearWatch\"]($2)"         ghcjs_dom_geolocation_clear_watch ::         JSRef Geolocation -> Int -> IO ()
src/GHCJS/DOM/HTMLAnchorElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLAnchorElement        (ghcjs_dom_html_anchor_element_set_charset,@@ -77,7 +77,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"] = $2;"         ghcjs_dom_html_anchor_element_set_charset ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -95,7 +95,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"]"         ghcjs_dom_html_anchor_element_get_charset ::         JSRef HTMLAnchorElement -> IO JSString@@ -114,7 +114,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"coords\"] = $2;"         ghcjs_dom_html_anchor_element_set_coords ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -132,7 +132,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"coords\"]"         ghcjs_dom_html_anchor_element_get_coords ::         JSRef HTMLAnchorElement -> IO JSString@@ -151,7 +151,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"download\"] = $2;"         ghcjs_dom_html_anchor_element_set_download ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -169,7 +169,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"download\"]"         ghcjs_dom_html_anchor_element_get_download ::         JSRef HTMLAnchorElement -> IO JSString@@ -188,7 +188,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_anchor_element_set_href ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -206,7 +206,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_anchor_element_get_href ::         JSRef HTMLAnchorElement -> IO JSString@@ -225,7 +225,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hreflang\"] = $2;"         ghcjs_dom_html_anchor_element_set_hreflang ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -243,7 +243,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hreflang\"]"         ghcjs_dom_html_anchor_element_get_hreflang ::         JSRef HTMLAnchorElement -> IO JSString@@ -262,7 +262,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_anchor_element_set_name ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -280,7 +280,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_anchor_element_get_name ::         JSRef HTMLAnchorElement -> IO JSString@@ -299,7 +299,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ping\"] = $2;"         ghcjs_dom_html_anchor_element_set_ping ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -317,7 +317,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ping\"]"         ghcjs_dom_html_anchor_element_get_ping ::         JSRef HTMLAnchorElement -> IO JSString@@ -336,7 +336,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rel\"] = $2;"         ghcjs_dom_html_anchor_element_set_rel ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -354,7 +354,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rel\"]"         ghcjs_dom_html_anchor_element_get_rel ::         JSRef HTMLAnchorElement -> IO JSString@@ -373,7 +373,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rev\"] = $2;"         ghcjs_dom_html_anchor_element_set_rev ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -391,7 +391,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rev\"]"         ghcjs_dom_html_anchor_element_get_rev ::         JSRef HTMLAnchorElement -> IO JSString@@ -410,7 +410,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"shape\"] = $2;"         ghcjs_dom_html_anchor_element_set_shape ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -428,7 +428,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"shape\"]"         ghcjs_dom_html_anchor_element_get_shape ::         JSRef HTMLAnchorElement -> IO JSString@@ -447,7 +447,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_anchor_element_set_target ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -465,7 +465,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_anchor_element_get_target ::         JSRef HTMLAnchorElement -> IO JSString@@ -484,7 +484,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hash\"] = $2;"         ghcjs_dom_html_anchor_element_set_hash ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -502,7 +502,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hash\"]"         ghcjs_dom_html_anchor_element_get_hash ::         JSRef HTMLAnchorElement -> IO JSString@@ -521,7 +521,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"host\"] = $2;"         ghcjs_dom_html_anchor_element_set_host ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -539,7 +539,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"host\"]"         ghcjs_dom_html_anchor_element_get_host ::         JSRef HTMLAnchorElement -> IO JSString@@ -558,7 +558,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hostname\"] = $2;"         ghcjs_dom_html_anchor_element_set_hostname ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -576,7 +576,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hostname\"]"         ghcjs_dom_html_anchor_element_get_hostname ::         JSRef HTMLAnchorElement -> IO JSString@@ -595,7 +595,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pathname\"] = $2;"         ghcjs_dom_html_anchor_element_set_pathname ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -613,7 +613,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pathname\"]"         ghcjs_dom_html_anchor_element_get_pathname ::         JSRef HTMLAnchorElement -> IO JSString@@ -632,7 +632,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"port\"] = $2;"         ghcjs_dom_html_anchor_element_set_port ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -650,7 +650,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"port\"]"         ghcjs_dom_html_anchor_element_get_port ::         JSRef HTMLAnchorElement -> IO JSString@@ -669,7 +669,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"protocol\"] = $2;"         ghcjs_dom_html_anchor_element_set_protocol ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -687,7 +687,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"protocol\"]"         ghcjs_dom_html_anchor_element_get_protocol ::         JSRef HTMLAnchorElement -> IO JSString@@ -706,7 +706,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"search\"] = $2;"         ghcjs_dom_html_anchor_element_set_search ::         JSRef HTMLAnchorElement -> JSString -> IO ()@@ -724,7 +724,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"search\"]"         ghcjs_dom_html_anchor_element_get_search ::         JSRef HTMLAnchorElement -> IO JSString@@ -743,7 +743,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"origin\"]"         ghcjs_dom_html_anchor_element_get_origin ::         JSRef HTMLAnchorElement -> IO JSString@@ -762,7 +762,7 @@          (unHTMLAnchorElement (toHTMLAnchorElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_anchor_element_get_text ::         JSRef HTMLAnchorElement -> IO JSString
src/GHCJS/DOM/HTMLAppletElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLAppletElement        (ghcjs_dom_html_applet_element_set_align,@@ -53,7 +53,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_applet_element_set_align ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -71,7 +71,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_applet_element_get_align ::         JSRef HTMLAppletElement -> IO JSString@@ -90,7 +90,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alt\"] = $2;"         ghcjs_dom_html_applet_element_set_alt ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -108,7 +108,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alt\"]"         ghcjs_dom_html_applet_element_get_alt ::         JSRef HTMLAppletElement -> IO JSString@@ -127,7 +127,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"archive\"] = $2;"         ghcjs_dom_html_applet_element_set_archive ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -145,7 +145,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"archive\"]"         ghcjs_dom_html_applet_element_get_archive ::         JSRef HTMLAppletElement -> IO JSString@@ -164,7 +164,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"code\"] = $2;"         ghcjs_dom_html_applet_element_set_code ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -182,7 +182,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"code\"]"         ghcjs_dom_html_applet_element_get_code ::         JSRef HTMLAppletElement -> IO JSString@@ -201,7 +201,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"codeBase\"] = $2;"         ghcjs_dom_html_applet_element_set_code_base ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -219,7 +219,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"codeBase\"]"         ghcjs_dom_html_applet_element_get_code_base ::         JSRef HTMLAppletElement -> IO JSString@@ -238,7 +238,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_applet_element_set_height ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -256,7 +256,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_applet_element_get_height ::         JSRef HTMLAppletElement -> IO JSString@@ -275,7 +275,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_applet_element_set_hspace ::         JSRef HTMLAppletElement -> Int -> IO ()@@ -293,7 +293,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_applet_element_get_hspace ::         JSRef HTMLAppletElement -> IO Int@@ -310,7 +310,7 @@       (unHTMLAppletElement (toHTMLAppletElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_applet_element_set_name ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -328,7 +328,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_applet_element_get_name ::         JSRef HTMLAppletElement -> IO JSString@@ -347,7 +347,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"object\"] = $2;"         ghcjs_dom_html_applet_element_set_object ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -365,7 +365,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"object\"]"         ghcjs_dom_html_applet_element_get_object ::         JSRef HTMLAppletElement -> IO JSString@@ -384,7 +384,7 @@          (unHTMLAppletElement (toHTMLAppletElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_applet_element_set_vspace ::         JSRef HTMLAppletElement -> Int -> IO ()@@ -402,7 +402,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_applet_element_get_vspace ::         JSRef HTMLAppletElement -> IO Int@@ -419,7 +419,7 @@       (unHTMLAppletElement (toHTMLAppletElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_applet_element_set_width ::         JSRef HTMLAppletElement -> JSString -> IO ()@@ -437,7 +437,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_applet_element_get_width ::         JSRef HTMLAppletElement -> IO JSString
src/GHCJS/DOM/HTMLAreaElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLAreaElement        (ghcjs_dom_html_area_element_set_alt, htmlAreaElementSetAlt,@@ -42,7 +42,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alt\"] = $2;"         ghcjs_dom_html_area_element_set_alt ::         JSRef HTMLAreaElement -> JSString -> IO ()@@ -60,7 +60,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alt\"]"         ghcjs_dom_html_area_element_get_alt ::         JSRef HTMLAreaElement -> IO JSString@@ -78,7 +78,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"coords\"] = $2;"         ghcjs_dom_html_area_element_set_coords ::         JSRef HTMLAreaElement -> JSString -> IO ()@@ -96,7 +96,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"coords\"]"         ghcjs_dom_html_area_element_get_coords ::         JSRef HTMLAreaElement -> IO JSString@@ -114,7 +114,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_area_element_set_href ::         JSRef HTMLAreaElement -> JSString -> IO ()@@ -132,7 +132,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_area_element_get_href ::         JSRef HTMLAreaElement -> IO JSString@@ -150,7 +150,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"noHref\"] = $2;"         ghcjs_dom_html_area_element_set_no_href ::         JSRef HTMLAreaElement -> Bool -> IO ()@@ -168,7 +168,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)"         ghcjs_dom_html_area_element_get_no_href ::         JSRef HTMLAreaElement -> IO Bool@@ -185,7 +185,7 @@       (unHTMLAreaElement (toHTMLAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ping\"] = $2;"         ghcjs_dom_html_area_element_set_ping ::         JSRef HTMLAreaElement -> JSString -> IO ()@@ -203,7 +203,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ping\"]"         ghcjs_dom_html_area_element_get_ping ::         JSRef HTMLAreaElement -> IO JSString@@ -221,7 +221,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"shape\"] = $2;"         ghcjs_dom_html_area_element_set_shape ::         JSRef HTMLAreaElement -> JSString -> IO ()@@ -239,7 +239,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"shape\"]"         ghcjs_dom_html_area_element_get_shape ::         JSRef HTMLAreaElement -> IO JSString@@ -257,7 +257,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_area_element_set_target ::         JSRef HTMLAreaElement -> JSString -> IO ()@@ -275,7 +275,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_area_element_get_target ::         JSRef HTMLAreaElement -> IO JSString@@ -293,7 +293,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hash\"]"         ghcjs_dom_html_area_element_get_hash ::         JSRef HTMLAreaElement -> IO JSString@@ -311,7 +311,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"host\"]"         ghcjs_dom_html_area_element_get_host ::         JSRef HTMLAreaElement -> IO JSString@@ -329,7 +329,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hostname\"]"         ghcjs_dom_html_area_element_get_hostname ::         JSRef HTMLAreaElement -> IO JSString@@ -347,7 +347,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pathname\"]"         ghcjs_dom_html_area_element_get_pathname ::         JSRef HTMLAreaElement -> IO JSString@@ -365,7 +365,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"port\"]"         ghcjs_dom_html_area_element_get_port ::         JSRef HTMLAreaElement -> IO JSString@@ -383,7 +383,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"protocol\"]"         ghcjs_dom_html_area_element_get_protocol ::         JSRef HTMLAreaElement -> IO JSString@@ -401,7 +401,7 @@          (unHTMLAreaElement (toHTMLAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"search\"]"         ghcjs_dom_html_area_element_get_search ::         JSRef HTMLAreaElement -> IO JSString
src/GHCJS/DOM/HTMLBRElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLBRElement        (ghcjs_dom_htmlbr_element_set_clear, htmlbrElementSetClear,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clear\"] = $2;"         ghcjs_dom_htmlbr_element_set_clear ::         JSRef HTMLBRElement -> JSString -> IO ()@@ -40,7 +40,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clear\"]"         ghcjs_dom_htmlbr_element_get_clear ::         JSRef HTMLBRElement -> IO JSString
src/GHCJS/DOM/HTMLBaseElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLBaseElement        (ghcjs_dom_html_base_element_set_href, htmlBaseElementSetHref,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_base_element_set_href ::         JSRef HTMLBaseElement -> JSString -> IO ()@@ -42,7 +42,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_base_element_get_href ::         JSRef HTMLBaseElement -> IO JSString@@ -60,7 +60,7 @@          (unHTMLBaseElement (toHTMLBaseElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_base_element_set_target ::         JSRef HTMLBaseElement -> JSString -> IO ()@@ -78,7 +78,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_base_element_get_target ::         JSRef HTMLBaseElement -> IO JSString
src/GHCJS/DOM/HTMLBaseFontElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLBaseFontElement        (ghcjs_dom_html_base_font_element_set_color,@@ -32,7 +32,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"color\"] = $2;"         ghcjs_dom_html_base_font_element_set_color ::         JSRef HTMLBaseFontElement -> JSString -> IO ()@@ -51,7 +51,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"color\"]"         ghcjs_dom_html_base_font_element_get_color ::         JSRef HTMLBaseFontElement -> IO JSString@@ -70,7 +70,7 @@          (unHTMLBaseFontElement (toHTMLBaseFontElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"face\"] = $2;"         ghcjs_dom_html_base_font_element_set_face ::         JSRef HTMLBaseFontElement -> JSString -> IO ()@@ -89,7 +89,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"face\"]"         ghcjs_dom_html_base_font_element_get_face ::         JSRef HTMLBaseFontElement -> IO JSString@@ -108,7 +108,7 @@          (unHTMLBaseFontElement (toHTMLBaseFontElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_html_base_font_element_set_size ::         JSRef HTMLBaseFontElement -> Int -> IO ()@@ -126,7 +126,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_html_base_font_element_get_size ::         JSRef HTMLBaseFontElement -> IO Int
src/GHCJS/DOM/HTMLBodyElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLBodyElement        (ghcjs_dom_html_body_element_set_a_link, htmlBodyElementSetALink,@@ -42,7 +42,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"aLink\"] = $2;"         ghcjs_dom_html_body_element_set_a_link ::         JSRef HTMLBodyElement -> JSString -> IO ()@@ -60,7 +60,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"aLink\"]"         ghcjs_dom_html_body_element_get_a_link ::         JSRef HTMLBodyElement -> IO JSString@@ -78,7 +78,7 @@          (unHTMLBodyElement (toHTMLBodyElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"background\"] = $2;"         ghcjs_dom_html_body_element_set_background ::         JSRef HTMLBodyElement -> JSString -> IO ()@@ -96,7 +96,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"background\"]"         ghcjs_dom_html_body_element_get_background ::         JSRef HTMLBodyElement -> IO JSString@@ -114,7 +114,7 @@          (unHTMLBodyElement (toHTMLBodyElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_body_element_set_bg_color ::         JSRef HTMLBodyElement -> JSString -> IO ()@@ -132,7 +132,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_body_element_get_bg_color ::         JSRef HTMLBodyElement -> IO JSString@@ -150,7 +150,7 @@          (unHTMLBodyElement (toHTMLBodyElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"link\"] = $2;"         ghcjs_dom_html_body_element_set_link ::         JSRef HTMLBodyElement -> JSString -> IO ()@@ -168,7 +168,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"link\"]"         ghcjs_dom_html_body_element_get_link ::         JSRef HTMLBodyElement -> IO JSString@@ -186,7 +186,7 @@          (unHTMLBodyElement (toHTMLBodyElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"] = $2;"         ghcjs_dom_html_body_element_set_text ::         JSRef HTMLBodyElement -> JSString -> IO ()@@ -204,7 +204,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_body_element_get_text ::         JSRef HTMLBodyElement -> IO JSString@@ -222,7 +222,7 @@          (unHTMLBodyElement (toHTMLBodyElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vLink\"] = $2;"         ghcjs_dom_html_body_element_set_v_link ::         JSRef HTMLBodyElement -> JSString -> IO ()@@ -240,7 +240,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vLink\"]"         ghcjs_dom_html_body_element_get_v_link ::         JSRef HTMLBodyElement -> IO JSString
src/GHCJS/DOM/HTMLButtonElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLButtonElement        (ghcjs_dom_html_button_element_check_validity,@@ -65,7 +65,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_button_element_check_validity ::@@ -83,7 +83,7 @@       (unHTMLButtonElement (toHTMLButtonElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_button_element_set_custom_validity ::         JSRef HTMLButtonElement -> JSString -> IO ()@@ -102,7 +102,7 @@       (toJSString error)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_button_element_set_autofocus ::         JSRef HTMLButtonElement -> Bool -> IO ()@@ -120,7 +120,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_autofocus ::         JSRef HTMLButtonElement -> IO Bool@@ -137,7 +137,7 @@       (unHTMLButtonElement (toHTMLButtonElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_button_element_set_disabled ::         JSRef HTMLButtonElement -> Bool -> IO ()@@ -155,7 +155,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_disabled ::         JSRef HTMLButtonElement -> IO Bool@@ -172,7 +172,7 @@       (unHTMLButtonElement (toHTMLButtonElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_button_element_get_form ::         JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)@@ -190,7 +190,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formAction\"] = $2;"         ghcjs_dom_html_button_element_set_form_action ::         JSRef HTMLButtonElement -> JSString -> IO ()@@ -208,7 +208,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formAction\"]"         ghcjs_dom_html_button_element_get_form_action ::         JSRef HTMLButtonElement -> IO JSString@@ -227,7 +227,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"         ghcjs_dom_html_button_element_set_form_enctype ::         JSRef HTMLButtonElement -> JSString -> IO ()@@ -245,7 +245,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formEnctype\"]"         ghcjs_dom_html_button_element_get_form_enctype ::         JSRef HTMLButtonElement -> IO JSString@@ -264,7 +264,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formMethod\"] = $2;"         ghcjs_dom_html_button_element_set_form_method ::         JSRef HTMLButtonElement -> JSString -> IO ()@@ -282,7 +282,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formMethod\"]"         ghcjs_dom_html_button_element_get_form_method ::         JSRef HTMLButtonElement -> IO JSString@@ -301,7 +301,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"         ghcjs_dom_html_button_element_set_form_no_validate ::         JSRef HTMLButtonElement -> Bool -> IO ()@@ -319,7 +319,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_form_no_validate ::         JSRef HTMLButtonElement -> IO Bool@@ -336,7 +336,7 @@       (unHTMLButtonElement (toHTMLButtonElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formTarget\"] = $2;"         ghcjs_dom_html_button_element_set_form_target ::         JSRef HTMLButtonElement -> JSString -> IO ()@@ -354,7 +354,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"formTarget\"]"         ghcjs_dom_html_button_element_get_form_target ::         JSRef HTMLButtonElement -> IO JSString@@ -373,7 +373,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_button_element_set_name ::         JSRef HTMLButtonElement -> JSString -> IO ()@@ -391,7 +391,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_button_element_get_name ::         JSRef HTMLButtonElement -> IO JSString@@ -410,7 +410,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_button_element_set_value ::         JSRef HTMLButtonElement -> JSString -> IO ()@@ -428,7 +428,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_button_element_get_value ::         JSRef HTMLButtonElement -> IO JSString@@ -447,7 +447,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_will_validate ::         JSRef HTMLButtonElement -> IO Bool@@ -464,7 +464,7 @@       (unHTMLButtonElement (toHTMLButtonElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_button_element_get_validity ::         JSRef HTMLButtonElement -> IO (JSRef ValidityState)@@ -482,7 +482,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_button_element_get_validation_message ::         JSRef HTMLButtonElement -> IO JSString@@ -501,7 +501,7 @@          (unHTMLButtonElement (toHTMLButtonElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_button_element_get_labels ::         JSRef HTMLButtonElement -> IO (JSRef NodeList)
src/GHCJS/DOM/HTMLCanvasElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLCanvasElement        (ghcjs_dom_html_canvas_element_set_width,@@ -27,7 +27,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_canvas_element_set_width ::         JSRef HTMLCanvasElement -> Int -> IO ()@@ -45,7 +45,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_canvas_element_get_width ::         JSRef HTMLCanvasElement -> IO Int@@ -62,7 +62,7 @@       (unHTMLCanvasElement (toHTMLCanvasElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_canvas_element_set_height ::         JSRef HTMLCanvasElement -> Int -> IO ()@@ -80,7 +80,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_canvas_element_get_height ::         JSRef HTMLCanvasElement -> IO Int
src/GHCJS/DOM/HTMLCollection.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLCollection        (ghcjs_dom_html_collection_item, htmlCollectionItem,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_html_collection_item ::         JSRef HTMLCollection -> Word -> IO (JSRef Node)@@ -42,7 +42,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_html_collection_named_item ::         JSRef HTMLCollection -> JSString -> IO (JSRef Node)@@ -62,7 +62,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_html_collection_get_length ::         JSRef HTMLCollection -> IO Word
src/GHCJS/DOM/HTMLDListElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLDListElement        (ghcjs_dom_htmld_list_element_set_compact,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_htmld_list_element_set_compact ::         JSRef HTMLDListElement -> Bool -> IO ()@@ -41,7 +41,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_htmld_list_element_get_compact ::         JSRef HTMLDListElement -> IO Bool
src/GHCJS/DOM/HTMLDetailsElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLDetailsElement        (ghcjs_dom_html_details_element_set_open,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"open\"] = $2;"         ghcjs_dom_html_details_element_set_open ::         JSRef HTMLDetailsElement -> Bool -> IO ()@@ -41,7 +41,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)"         ghcjs_dom_html_details_element_get_open ::         JSRef HTMLDetailsElement -> IO Bool
src/GHCJS/DOM/HTMLDirectoryElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLDirectoryElement        (ghcjs_dom_html_directory_element_set_compact,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_html_directory_element_set_compact ::         JSRef HTMLDirectoryElement -> Bool -> IO ()@@ -42,7 +42,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_html_directory_element_get_compact ::         JSRef HTMLDirectoryElement -> IO Bool
src/GHCJS/DOM/HTMLDivElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLDivElement        (ghcjs_dom_html_div_element_set_align, htmlDivElementSetAlign,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_div_element_set_align ::         JSRef HTMLDivElement -> JSString -> IO ()@@ -40,7 +40,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_div_element_get_align ::         JSRef HTMLDivElement -> IO JSString
src/GHCJS/DOM/HTMLDocument.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLDocument        (ghcjs_dom_html_document_close, htmlDocumentClose,@@ -46,7 +46,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"close\"]()"         ghcjs_dom_html_document_close :: JSRef HTMLDocument -> IO () #else @@ -60,7 +60,7 @@       (unHTMLDocument (toHTMLDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clear\"]()"         ghcjs_dom_html_document_clear :: JSRef HTMLDocument -> IO () #else @@ -74,7 +74,7 @@       (unHTMLDocument (toHTMLDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"captureEvents\"]()"         ghcjs_dom_html_document_capture_events ::         JSRef HTMLDocument -> IO ()@@ -90,7 +90,7 @@       (unHTMLDocument (toHTMLDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"releaseEvents\"]()"         ghcjs_dom_html_document_release_events ::         JSRef HTMLDocument -> IO ()@@ -106,7 +106,7 @@       (unHTMLDocument (toHTMLDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"         ghcjs_dom_html_document_has_focus :: JSRef HTMLDocument -> IO Bool #else @@ -120,7 +120,7 @@       (unHTMLDocument (toHTMLDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"embeds\"]"         ghcjs_dom_html_document_get_embeds ::         JSRef HTMLDocument -> IO (JSRef HTMLCollection)@@ -138,7 +138,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"plugins\"]"         ghcjs_dom_html_document_get_plugins ::         JSRef HTMLDocument -> IO (JSRef HTMLCollection)@@ -156,7 +156,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scripts\"]"         ghcjs_dom_html_document_get_scripts ::         JSRef HTMLDocument -> IO (JSRef HTMLCollection)@@ -174,7 +174,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_document_get_width :: JSRef HTMLDocument -> IO Int #else @@ -188,7 +188,7 @@       (unHTMLDocument (toHTMLDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_document_get_height :: JSRef HTMLDocument -> IO Int #else @@ -202,7 +202,7 @@       (unHTMLDocument (toHTMLDocument self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"dir\"] = $2;"         ghcjs_dom_html_document_set_dir ::         JSRef HTMLDocument -> JSString -> IO ()@@ -220,7 +220,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"dir\"]"         ghcjs_dom_html_document_get_dir ::         JSRef HTMLDocument -> IO JSString@@ -238,7 +238,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"designMode\"] = $2;"         ghcjs_dom_html_document_set_design_mode ::         JSRef HTMLDocument -> JSString -> IO ()@@ -256,7 +256,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"designMode\"]"         ghcjs_dom_html_document_get_design_mode ::         JSRef HTMLDocument -> IO JSString@@ -274,7 +274,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"compatMode\"]"         ghcjs_dom_html_document_get_compat_mode ::         JSRef HTMLDocument -> IO JSString@@ -292,7 +292,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"activeElement\"]"         ghcjs_dom_html_document_get_active_element ::         JSRef HTMLDocument -> IO (JSRef Element)@@ -310,7 +310,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_document_set_bg_color ::         JSRef HTMLDocument -> JSString -> IO ()@@ -328,7 +328,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_document_get_bg_color ::         JSRef HTMLDocument -> IO JSString@@ -346,7 +346,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"fgColor\"] = $2;"         ghcjs_dom_html_document_set_fg_color ::         JSRef HTMLDocument -> JSString -> IO ()@@ -364,7 +364,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"fgColor\"]"         ghcjs_dom_html_document_get_fg_color ::         JSRef HTMLDocument -> IO JSString@@ -382,7 +382,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"         ghcjs_dom_html_document_set_alink_color ::         JSRef HTMLDocument -> JSString -> IO ()@@ -400,7 +400,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alinkColor\"]"         ghcjs_dom_html_document_get_alink_color ::         JSRef HTMLDocument -> IO JSString@@ -418,7 +418,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"linkColor\"] = $2;"         ghcjs_dom_html_document_set_link_color ::         JSRef HTMLDocument -> JSString -> IO ()@@ -436,7 +436,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"linkColor\"]"         ghcjs_dom_html_document_get_link_color ::         JSRef HTMLDocument -> IO JSString@@ -454,7 +454,7 @@          (unHTMLDocument (toHTMLDocument self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"         ghcjs_dom_html_document_set_vlink_color ::         JSRef HTMLDocument -> JSString -> IO ()@@ -472,7 +472,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vlinkColor\"]"         ghcjs_dom_html_document_get_vlink_color ::         JSRef HTMLDocument -> IO JSString
src/GHCJS/DOM/HTMLElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLElement        (ghcjs_dom_html_element_insert_adjacent_element,@@ -63,7 +63,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"insertAdjacentElement\"]($2,\n$3)"         ghcjs_dom_html_element_insert_adjacent_element ::@@ -87,7 +87,7 @@          (maybe jsNull (unElement . toElement) element))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"insertAdjacentHTML\"]($2, $3)"         ghcjs_dom_html_element_insert_adjacent_html ::@@ -108,7 +108,7 @@       (toJSString html)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"insertAdjacentText\"]($2, $3)"         ghcjs_dom_html_element_insert_adjacent_text ::@@ -129,7 +129,7 @@       (toJSString text)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"click\"]()"         ghcjs_dom_html_element_click :: JSRef HTMLElement -> IO () #else @@ -142,7 +142,7 @@   = ghcjs_dom_html_element_click (unHTMLElement (toHTMLElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"title\"] = $2;"         ghcjs_dom_html_element_set_title ::         JSRef HTMLElement -> JSString -> IO ()@@ -160,7 +160,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"title\"]"         ghcjs_dom_html_element_get_title ::         JSRef HTMLElement -> IO JSString@@ -178,7 +178,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lang\"] = $2;"         ghcjs_dom_html_element_set_lang ::         JSRef HTMLElement -> JSString -> IO ()@@ -196,7 +196,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lang\"]"         ghcjs_dom_html_element_get_lang :: JSRef HTMLElement -> IO JSString #else @@ -212,7 +212,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"translate\"] = $2;"         ghcjs_dom_html_element_set_translate ::         JSRef HTMLElement -> Bool -> IO ()@@ -230,7 +230,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)"         ghcjs_dom_html_element_get_translate ::         JSRef HTMLElement -> IO Bool@@ -246,7 +246,7 @@       (unHTMLElement (toHTMLElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"dir\"] = $2;"         ghcjs_dom_html_element_set_dir ::         JSRef HTMLElement -> JSString -> IO ()@@ -264,7 +264,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"dir\"]"         ghcjs_dom_html_element_get_dir :: JSRef HTMLElement -> IO JSString #else @@ -280,7 +280,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"         ghcjs_dom_html_element_set_tab_index ::         JSRef HTMLElement -> Int -> IO ()@@ -298,7 +298,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tabIndex\"]"         ghcjs_dom_html_element_get_tab_index :: JSRef HTMLElement -> IO Int #else @@ -312,7 +312,7 @@       (unHTMLElement (toHTMLElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"draggable\"] = $2;"         ghcjs_dom_html_element_set_draggable ::         JSRef HTMLElement -> Bool -> IO ()@@ -330,7 +330,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)"         ghcjs_dom_html_element_get_draggable ::         JSRef HTMLElement -> IO Bool@@ -346,7 +346,7 @@       (unHTMLElement (toHTMLElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;"         ghcjs_dom_html_element_set_webkitdropzone ::         JSRef HTMLElement -> JSString -> IO ()@@ -364,7 +364,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitdropzone\"]"         ghcjs_dom_html_element_get_webkitdropzone ::         JSRef HTMLElement -> IO JSString@@ -382,7 +382,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hidden\"] = $2;"         ghcjs_dom_html_element_set_hidden ::         JSRef HTMLElement -> Bool -> IO ()@@ -400,7 +400,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"         ghcjs_dom_html_element_get_hidden :: JSRef HTMLElement -> IO Bool #else @@ -414,7 +414,7 @@       (unHTMLElement (toHTMLElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"accessKey\"] = $2;"         ghcjs_dom_html_element_set_access_key ::         JSRef HTMLElement -> JSString -> IO ()@@ -432,7 +432,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"accessKey\"]"         ghcjs_dom_html_element_get_access_key ::         JSRef HTMLElement -> IO JSString@@ -450,7 +450,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"         ghcjs_dom_html_element_set_inner_html ::         JSRef HTMLElement -> JSString -> IO ()@@ -468,7 +468,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"innerHTML\"]"         ghcjs_dom_html_element_get_inner_html ::         JSRef HTMLElement -> IO JSString@@ -486,7 +486,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"innerText\"] = $2;"         ghcjs_dom_html_element_set_inner_text ::         JSRef HTMLElement -> JSString -> IO ()@@ -504,7 +504,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"innerText\"]"         ghcjs_dom_html_element_get_inner_text ::         JSRef HTMLElement -> IO JSString@@ -522,7 +522,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"         ghcjs_dom_html_element_set_outer_html ::         JSRef HTMLElement -> JSString -> IO ()@@ -540,7 +540,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"outerHTML\"]"         ghcjs_dom_html_element_get_outer_html ::         JSRef HTMLElement -> IO JSString@@ -558,7 +558,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"outerText\"] = $2;"         ghcjs_dom_html_element_set_outer_text ::         JSRef HTMLElement -> JSString -> IO ()@@ -576,7 +576,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"outerText\"]"         ghcjs_dom_html_element_get_outer_text ::         JSRef HTMLElement -> IO JSString@@ -594,7 +594,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"children\"]"         ghcjs_dom_html_element_get_children ::         JSRef HTMLElement -> IO (JSRef HTMLCollection)@@ -612,7 +612,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"         ghcjs_dom_html_element_set_content_editable ::         JSRef HTMLElement -> JSString -> IO ()@@ -630,7 +630,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"contentEditable\"]"         ghcjs_dom_html_element_get_content_editable ::         JSRef HTMLElement -> IO JSString@@ -648,7 +648,7 @@          (unHTMLElement (toHTMLElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"isContentEditable\"] ? 1 : 0)"         ghcjs_dom_html_element_get_is_content_editable ::@@ -666,7 +666,7 @@       (unHTMLElement (toHTMLElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"spellcheck\"] = $2;"         ghcjs_dom_html_element_set_spellcheck ::         JSRef HTMLElement -> Bool -> IO ()@@ -684,7 +684,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)"         ghcjs_dom_html_element_get_spellcheck ::         JSRef HTMLElement -> IO Bool
src/GHCJS/DOM/HTMLEmbedElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLEmbedElement        (ghcjs_dom_html_embed_element_set_align, htmlEmbedElementSetAlign,@@ -30,7 +30,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_embed_element_set_align ::         JSRef HTMLEmbedElement -> JSString -> IO ()@@ -48,7 +48,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_embed_element_get_align ::         JSRef HTMLEmbedElement -> IO JSString@@ -66,7 +66,7 @@          (unHTMLEmbedElement (toHTMLEmbedElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_embed_element_set_height ::         JSRef HTMLEmbedElement -> Int -> IO ()@@ -84,7 +84,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_embed_element_get_height ::         JSRef HTMLEmbedElement -> IO Int@@ -101,7 +101,7 @@       (unHTMLEmbedElement (toHTMLEmbedElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_embed_element_set_name ::         JSRef HTMLEmbedElement -> JSString -> IO ()@@ -119,7 +119,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_embed_element_get_name ::         JSRef HTMLEmbedElement -> IO JSString@@ -137,7 +137,7 @@          (unHTMLEmbedElement (toHTMLEmbedElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_embed_element_set_src ::         JSRef HTMLEmbedElement -> JSString -> IO ()@@ -155,7 +155,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_embed_element_get_src ::         JSRef HTMLEmbedElement -> IO JSString@@ -173,7 +173,7 @@          (unHTMLEmbedElement (toHTMLEmbedElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_embed_element_set_width ::         JSRef HTMLEmbedElement -> Int -> IO ()@@ -191,7 +191,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_embed_element_get_width ::         JSRef HTMLEmbedElement -> IO Int
src/GHCJS/DOM/HTMLFieldSetElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLFieldSetElement        (ghcjs_dom_html_field_set_element_check_validity,@@ -42,7 +42,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_field_set_element_check_validity ::@@ -60,7 +60,7 @@       (unHTMLFieldSetElement (toHTMLFieldSetElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_field_set_element_set_custom_validity ::         JSRef HTMLFieldSetElement -> JSString -> IO ()@@ -80,7 +80,7 @@       (toJSString error)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_field_set_element_set_disabled ::         JSRef HTMLFieldSetElement -> Bool -> IO ()@@ -98,7 +98,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_field_set_element_get_disabled ::         JSRef HTMLFieldSetElement -> IO Bool@@ -115,7 +115,7 @@       (unHTMLFieldSetElement (toHTMLFieldSetElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_field_set_element_get_form ::         JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement)@@ -133,7 +133,7 @@          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_field_set_element_set_name ::         JSRef HTMLFieldSetElement -> JSString -> IO ()@@ -152,7 +152,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_field_set_element_get_name ::         JSRef HTMLFieldSetElement -> IO JSString@@ -171,7 +171,7 @@          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"elements\"]"         ghcjs_dom_html_field_set_element_get_elements ::         JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection)@@ -190,7 +190,7 @@          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_field_set_element_get_will_validate ::         JSRef HTMLFieldSetElement -> IO Bool@@ -207,7 +207,7 @@       (unHTMLFieldSetElement (toHTMLFieldSetElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_field_set_element_get_validity ::         JSRef HTMLFieldSetElement -> IO (JSRef ValidityState)@@ -226,7 +226,7 @@          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_field_set_element_get_validation_message ::         JSRef HTMLFieldSetElement -> IO JSString
src/GHCJS/DOM/HTMLFontElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLFontElement        (ghcjs_dom_html_font_element_set_color, htmlFontElementSetColor,@@ -26,7 +26,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"color\"] = $2;"         ghcjs_dom_html_font_element_set_color ::         JSRef HTMLFontElement -> JSString -> IO ()@@ -44,7 +44,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"color\"]"         ghcjs_dom_html_font_element_get_color ::         JSRef HTMLFontElement -> IO JSString@@ -62,7 +62,7 @@          (unHTMLFontElement (toHTMLFontElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"face\"] = $2;"         ghcjs_dom_html_font_element_set_face ::         JSRef HTMLFontElement -> JSString -> IO ()@@ -80,7 +80,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"face\"]"         ghcjs_dom_html_font_element_get_face ::         JSRef HTMLFontElement -> IO JSString@@ -98,7 +98,7 @@          (unHTMLFontElement (toHTMLFontElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_html_font_element_set_size ::         JSRef HTMLFontElement -> JSString -> IO ()@@ -116,7 +116,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_html_font_element_get_size ::         JSRef HTMLFontElement -> IO JSString
src/GHCJS/DOM/HTMLFormElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLFormElement        (ghcjs_dom_html_form_element_get, htmlFormElement_get,@@ -53,7 +53,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"_get\"]($2)"         ghcjs_dom_html_form_element_get ::         JSRef HTMLFormElement -> Word -> IO (JSRef Element)@@ -72,7 +72,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"submit\"]()"         ghcjs_dom_html_form_element_submit ::         JSRef HTMLFormElement -> IO ()@@ -88,7 +88,7 @@       (unHTMLFormElement (toHTMLFormElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"reset\"]()"         ghcjs_dom_html_form_element_reset :: JSRef HTMLFormElement -> IO () #else @@ -102,7 +102,7 @@       (unHTMLFormElement (toHTMLFormElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_form_element_check_validity ::@@ -120,7 +120,7 @@       (unHTMLFormElement (toHTMLFormElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"         ghcjs_dom_html_form_element_set_accept_charset ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -138,7 +138,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"acceptCharset\"]"         ghcjs_dom_html_form_element_get_accept_charset ::         JSRef HTMLFormElement -> IO JSString@@ -156,7 +156,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"action\"] = $2;"         ghcjs_dom_html_form_element_set_action ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -174,7 +174,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"action\"]"         ghcjs_dom_html_form_element_get_action ::         JSRef HTMLFormElement -> IO JSString@@ -192,7 +192,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"         ghcjs_dom_html_form_element_set_autocomplete ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -210,7 +210,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"autocomplete\"]"         ghcjs_dom_html_form_element_get_autocomplete ::         JSRef HTMLFormElement -> IO JSString@@ -228,7 +228,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"enctype\"] = $2;"         ghcjs_dom_html_form_element_set_enctype ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -246,7 +246,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"enctype\"]"         ghcjs_dom_html_form_element_get_enctype ::         JSRef HTMLFormElement -> IO JSString@@ -264,7 +264,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"encoding\"] = $2;"         ghcjs_dom_html_form_element_set_encoding ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -282,7 +282,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"encoding\"]"         ghcjs_dom_html_form_element_get_encoding ::         JSRef HTMLFormElement -> IO JSString@@ -300,7 +300,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"method\"] = $2;"         ghcjs_dom_html_form_element_set_method ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -318,7 +318,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"method\"]"         ghcjs_dom_html_form_element_get_method ::         JSRef HTMLFormElement -> IO JSString@@ -336,7 +336,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_form_element_set_name ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -354,7 +354,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_form_element_get_name ::         JSRef HTMLFormElement -> IO JSString@@ -372,7 +372,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"noValidate\"] = $2;"         ghcjs_dom_html_form_element_set_no_validate ::         JSRef HTMLFormElement -> Bool -> IO ()@@ -390,7 +390,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)"         ghcjs_dom_html_form_element_get_no_validate ::         JSRef HTMLFormElement -> IO Bool@@ -407,7 +407,7 @@       (unHTMLFormElement (toHTMLFormElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_form_element_set_target ::         JSRef HTMLFormElement -> JSString -> IO ()@@ -425,7 +425,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_form_element_get_target ::         JSRef HTMLFormElement -> IO JSString@@ -443,7 +443,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"elements\"]"         ghcjs_dom_html_form_element_get_elements ::         JSRef HTMLFormElement -> IO (JSRef HTMLCollection)@@ -461,7 +461,7 @@          (unHTMLFormElement (toHTMLFormElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_html_form_element_get_length ::         JSRef HTMLFormElement -> IO Int
src/GHCJS/DOM/HTMLFrameElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLFrameElement        (ghcjs_dom_html_frame_element_set_frame_border,@@ -54,7 +54,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"         ghcjs_dom_html_frame_element_set_frame_border ::         JSRef HTMLFrameElement -> JSString -> IO ()@@ -72,7 +72,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frameBorder\"]"         ghcjs_dom_html_frame_element_get_frame_border ::         JSRef HTMLFrameElement -> IO JSString@@ -90,7 +90,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         ghcjs_dom_html_frame_element_set_long_desc ::         JSRef HTMLFrameElement -> JSString -> IO ()@@ -108,7 +108,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"longDesc\"]"         ghcjs_dom_html_frame_element_get_long_desc ::         JSRef HTMLFrameElement -> IO JSString@@ -126,7 +126,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"         ghcjs_dom_html_frame_element_set_margin_height ::         JSRef HTMLFrameElement -> JSString -> IO ()@@ -144,7 +144,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginHeight\"]"         ghcjs_dom_html_frame_element_get_margin_height ::         JSRef HTMLFrameElement -> IO JSString@@ -162,7 +162,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"         ghcjs_dom_html_frame_element_set_margin_width ::         JSRef HTMLFrameElement -> JSString -> IO ()@@ -180,7 +180,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginWidth\"]"         ghcjs_dom_html_frame_element_get_margin_width ::         JSRef HTMLFrameElement -> IO JSString@@ -198,7 +198,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_frame_element_set_name ::         JSRef HTMLFrameElement -> JSString -> IO ()@@ -216,7 +216,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_frame_element_get_name ::         JSRef HTMLFrameElement -> IO JSString@@ -234,7 +234,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"noResize\"] = $2;"         ghcjs_dom_html_frame_element_set_no_resize ::         JSRef HTMLFrameElement -> Bool -> IO ()@@ -252,7 +252,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)"         ghcjs_dom_html_frame_element_get_no_resize ::         JSRef HTMLFrameElement -> IO Bool@@ -269,7 +269,7 @@       (unHTMLFrameElement (toHTMLFrameElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrolling\"] = $2;"         ghcjs_dom_html_frame_element_set_scrolling ::         JSRef HTMLFrameElement -> JSString -> IO ()@@ -287,7 +287,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrolling\"]"         ghcjs_dom_html_frame_element_get_scrolling ::         JSRef HTMLFrameElement -> IO JSString@@ -305,7 +305,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_frame_element_set_src ::         JSRef HTMLFrameElement -> JSString -> IO ()@@ -323,7 +323,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_frame_element_get_src ::         JSRef HTMLFrameElement -> IO JSString@@ -341,7 +341,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"contentDocument\"]"         ghcjs_dom_html_frame_element_get_content_document ::         JSRef HTMLFrameElement -> IO (JSRef Document)@@ -359,7 +359,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"contentWindow\"]"         ghcjs_dom_html_frame_element_get_content_window ::         JSRef HTMLFrameElement -> IO (JSRef DOMWindow)@@ -377,7 +377,7 @@          (unHTMLFrameElement (toHTMLFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_frame_element_get_width ::         JSRef HTMLFrameElement -> IO Int@@ -394,7 +394,7 @@       (unHTMLFrameElement (toHTMLFrameElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_frame_element_get_height ::         JSRef HTMLFrameElement -> IO Int
src/GHCJS/DOM/HTMLFrameSetElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLFrameSetElement        (ghcjs_dom_html_frame_set_element_set_cols,@@ -35,7 +35,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cols\"] = $2;"         ghcjs_dom_html_frame_set_element_set_cols ::         JSRef HTMLFrameSetElement -> JSString -> IO ()@@ -54,7 +54,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cols\"]"         ghcjs_dom_html_frame_set_element_get_cols ::         JSRef HTMLFrameSetElement -> IO JSString@@ -73,7 +73,7 @@          (unHTMLFrameSetElement (toHTMLFrameSetElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rows\"] = $2;"         ghcjs_dom_html_frame_set_element_set_rows ::         JSRef HTMLFrameSetElement -> JSString -> IO ()@@ -92,7 +92,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_frame_set_element_get_rows ::         JSRef HTMLFrameSetElement -> IO JSString
src/GHCJS/DOM/HTMLHRElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLHRElement        (ghcjs_dom_htmlhr_element_set_align, htmlhrElementSetAlign,@@ -28,7 +28,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_htmlhr_element_set_align ::         JSRef HTMLHRElement -> JSString -> IO ()@@ -46,7 +46,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_htmlhr_element_get_align ::         JSRef HTMLHRElement -> IO JSString@@ -64,7 +64,7 @@          (unHTMLHRElement (toHTMLHRElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"noShade\"] = $2;"         ghcjs_dom_htmlhr_element_set_no_shade ::         JSRef HTMLHRElement -> Bool -> IO ()@@ -82,7 +82,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)"         ghcjs_dom_htmlhr_element_get_no_shade ::         JSRef HTMLHRElement -> IO Bool@@ -99,7 +99,7 @@       (unHTMLHRElement (toHTMLHRElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_htmlhr_element_set_size ::         JSRef HTMLHRElement -> JSString -> IO ()@@ -117,7 +117,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_htmlhr_element_get_size ::         JSRef HTMLHRElement -> IO JSString@@ -135,7 +135,7 @@          (unHTMLHRElement (toHTMLHRElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_htmlhr_element_set_width ::         JSRef HTMLHRElement -> JSString -> IO ()@@ -153,7 +153,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_htmlhr_element_get_width ::         JSRef HTMLHRElement -> IO JSString
src/GHCJS/DOM/HTMLHeadElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLHeadElement        (ghcjs_dom_html_head_element_set_profile,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"profile\"] = $2;"         ghcjs_dom_html_head_element_set_profile ::         JSRef HTMLHeadElement -> JSString -> IO ()@@ -40,7 +40,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"profile\"]"         ghcjs_dom_html_head_element_get_profile ::         JSRef HTMLHeadElement -> IO JSString
src/GHCJS/DOM/HTMLHeadingElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLHeadingElement        (ghcjs_dom_html_heading_element_set_align,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_heading_element_set_align ::         JSRef HTMLHeadingElement -> JSString -> IO ()@@ -42,7 +42,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_heading_element_get_align ::         JSRef HTMLHeadingElement -> IO JSString
src/GHCJS/DOM/HTMLHtmlElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLHtmlElement        (ghcjs_dom_html_html_element_set_version,@@ -26,7 +26,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"version\"] = $2;"         ghcjs_dom_html_html_element_set_version ::         JSRef HTMLHtmlElement -> JSString -> IO ()@@ -44,7 +44,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"version\"]"         ghcjs_dom_html_html_element_get_version ::         JSRef HTMLHtmlElement -> IO JSString@@ -62,7 +62,7 @@          (unHTMLHtmlElement (toHTMLHtmlElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"manifest\"] = $2;"         ghcjs_dom_html_html_element_set_manifest ::         JSRef HTMLHtmlElement -> JSString -> IO ()@@ -80,7 +80,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"manifest\"]"         ghcjs_dom_html_html_element_get_manifest ::         JSRef HTMLHtmlElement -> IO JSString
src/GHCJS/DOM/HTMLIFrameElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLIFrameElement        (ghcjs_dom_html_iframe_element_set_align,@@ -69,7 +69,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_iframe_element_set_align ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -87,7 +87,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_iframe_element_get_align ::         JSRef HTMLIFrameElement -> IO JSString@@ -106,7 +106,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"         ghcjs_dom_html_iframe_element_set_frame_border ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -124,7 +124,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frameBorder\"]"         ghcjs_dom_html_iframe_element_get_frame_border ::         JSRef HTMLIFrameElement -> IO JSString@@ -143,7 +143,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_iframe_element_set_height ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -161,7 +161,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_iframe_element_get_height ::         JSRef HTMLIFrameElement -> IO JSString@@ -180,7 +180,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         ghcjs_dom_html_iframe_element_set_long_desc ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -198,7 +198,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"longDesc\"]"         ghcjs_dom_html_iframe_element_get_long_desc ::         JSRef HTMLIFrameElement -> IO JSString@@ -217,7 +217,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"         ghcjs_dom_html_iframe_element_set_margin_height ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -235,7 +235,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginHeight\"]"         ghcjs_dom_html_iframe_element_get_margin_height ::         JSRef HTMLIFrameElement -> IO JSString@@ -254,7 +254,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"         ghcjs_dom_html_iframe_element_set_margin_width ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -272,7 +272,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"marginWidth\"]"         ghcjs_dom_html_iframe_element_get_margin_width ::         JSRef HTMLIFrameElement -> IO JSString@@ -291,7 +291,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_iframe_element_set_name ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -309,7 +309,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_iframe_element_get_name ::         JSRef HTMLIFrameElement -> IO JSString@@ -328,7 +328,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sandbox\"] = $2;"         ghcjs_dom_html_iframe_element_set_sandbox ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -346,7 +346,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sandbox\"]"         ghcjs_dom_html_iframe_element_get_sandbox ::         JSRef HTMLIFrameElement -> IO JSString@@ -365,7 +365,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"seamless\"] = $2;"         ghcjs_dom_html_iframe_element_set_seamless ::         JSRef HTMLIFrameElement -> Bool -> IO ()@@ -383,7 +383,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"seamless\"] ? 1 : 0)"         ghcjs_dom_html_iframe_element_get_seamless ::         JSRef HTMLIFrameElement -> IO Bool@@ -400,7 +400,7 @@       (unHTMLIFrameElement (toHTMLIFrameElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrolling\"] = $2;"         ghcjs_dom_html_iframe_element_set_scrolling ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -418,7 +418,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrolling\"]"         ghcjs_dom_html_iframe_element_get_scrolling ::         JSRef HTMLIFrameElement -> IO JSString@@ -437,7 +437,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_iframe_element_set_src ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -455,7 +455,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_iframe_element_get_src ::         JSRef HTMLIFrameElement -> IO JSString@@ -474,7 +474,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"         ghcjs_dom_html_iframe_element_set_srcdoc ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -492,7 +492,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"srcdoc\"]"         ghcjs_dom_html_iframe_element_get_srcdoc ::         JSRef HTMLIFrameElement -> IO JSString@@ -511,7 +511,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_iframe_element_set_width ::         JSRef HTMLIFrameElement -> JSString -> IO ()@@ -529,7 +529,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_iframe_element_get_width ::         JSRef HTMLIFrameElement -> IO JSString@@ -548,7 +548,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"contentDocument\"]"         ghcjs_dom_html_iframe_element_get_content_document ::         JSRef HTMLIFrameElement -> IO (JSRef Document)@@ -566,7 +566,7 @@          (unHTMLIFrameElement (toHTMLIFrameElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"contentWindow\"]"         ghcjs_dom_html_iframe_element_get_content_window ::         JSRef HTMLIFrameElement -> IO (JSRef DOMWindow)
src/GHCJS/DOM/HTMLImageElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLImageElement        (ghcjs_dom_html_image_element_set_name, htmlImageElementSetName,@@ -64,7 +64,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_image_element_set_name ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -82,7 +82,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_image_element_get_name ::         JSRef HTMLImageElement -> IO JSString@@ -100,7 +100,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_image_element_set_align ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -118,7 +118,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_image_element_get_align ::         JSRef HTMLImageElement -> IO JSString@@ -136,7 +136,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alt\"] = $2;"         ghcjs_dom_html_image_element_set_alt ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -154,7 +154,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"alt\"]"         ghcjs_dom_html_image_element_get_alt ::         JSRef HTMLImageElement -> IO JSString@@ -172,7 +172,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"border\"] = $2;"         ghcjs_dom_html_image_element_set_border ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -190,7 +190,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"border\"]"         ghcjs_dom_html_image_element_get_border ::         JSRef HTMLImageElement -> IO JSString@@ -208,7 +208,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"         ghcjs_dom_html_image_element_set_cross_origin ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -226,7 +226,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"crossOrigin\"]"         ghcjs_dom_html_image_element_get_cross_origin ::         JSRef HTMLImageElement -> IO JSString@@ -244,7 +244,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_image_element_set_height ::         JSRef HTMLImageElement -> Int -> IO ()@@ -262,7 +262,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_image_element_get_height ::         JSRef HTMLImageElement -> IO Int@@ -279,7 +279,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_image_element_set_hspace ::         JSRef HTMLImageElement -> Int -> IO ()@@ -297,7 +297,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_image_element_get_hspace ::         JSRef HTMLImageElement -> IO Int@@ -314,7 +314,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"isMap\"] = $2;"         ghcjs_dom_html_image_element_set_is_map ::         JSRef HTMLImageElement -> Bool -> IO ()@@ -332,7 +332,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)"         ghcjs_dom_html_image_element_get_is_map ::         JSRef HTMLImageElement -> IO Bool@@ -349,7 +349,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         ghcjs_dom_html_image_element_set_long_desc ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -367,7 +367,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"longDesc\"]"         ghcjs_dom_html_image_element_get_long_desc ::         JSRef HTMLImageElement -> IO JSString@@ -385,7 +385,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_image_element_set_src ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -403,7 +403,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_image_element_get_src ::         JSRef HTMLImageElement -> IO JSString@@ -421,7 +421,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"srcset\"] = $2;"         ghcjs_dom_html_image_element_set_srcset ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -439,7 +439,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"srcset\"]"         ghcjs_dom_html_image_element_get_srcset ::         JSRef HTMLImageElement -> IO JSString@@ -457,7 +457,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"useMap\"] = $2;"         ghcjs_dom_html_image_element_set_use_map ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -475,7 +475,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"useMap\"]"         ghcjs_dom_html_image_element_get_use_map ::         JSRef HTMLImageElement -> IO JSString@@ -493,7 +493,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_image_element_set_vspace ::         JSRef HTMLImageElement -> Int -> IO ()@@ -511,7 +511,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_image_element_get_vspace ::         JSRef HTMLImageElement -> IO Int@@ -528,7 +528,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_image_element_set_width ::         JSRef HTMLImageElement -> Int -> IO ()@@ -546,7 +546,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_image_element_get_width ::         JSRef HTMLImageElement -> IO Int@@ -563,7 +563,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)"         ghcjs_dom_html_image_element_get_complete ::         JSRef HTMLImageElement -> IO Bool@@ -580,7 +580,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"         ghcjs_dom_html_image_element_set_lowsrc ::         JSRef HTMLImageElement -> JSString -> IO ()@@ -598,7 +598,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lowsrc\"]"         ghcjs_dom_html_image_element_get_lowsrc ::         JSRef HTMLImageElement -> IO JSString@@ -616,7 +616,7 @@          (unHTMLImageElement (toHTMLImageElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"naturalHeight\"]"         ghcjs_dom_html_image_element_get_natural_height ::         JSRef HTMLImageElement -> IO Int@@ -633,7 +633,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"naturalWidth\"]"         ghcjs_dom_html_image_element_get_natural_width ::         JSRef HTMLImageElement -> IO Int@@ -650,7 +650,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"x\"]"         ghcjs_dom_html_image_element_get_x ::         JSRef HTMLImageElement -> IO Int@@ -666,7 +666,7 @@       (unHTMLImageElement (toHTMLImageElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"y\"]"         ghcjs_dom_html_image_element_get_y ::         JSRef HTMLImageElement -> IO Int
src/GHCJS/DOM/HTMLInputElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLInputElement        (ghcjs_dom_html_input_element_step_up, htmlInputElementStepUp,@@ -168,16 +168,16 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"stepUp\"]($2)"         ghcjs_dom_html_input_element_step_up ::         JSRef HTMLInputElement -> Int -> IO ()-#else +#else ghcjs_dom_html_input_element_step_up ::                                        JSRef HTMLInputElement -> Int -> IO () ghcjs_dom_html_input_element_step_up = undefined #endif- + htmlInputElementStepUp ::                        (IsHTMLInputElement self) => self -> Int -> IO () htmlInputElementStepUp self n@@ -186,16 +186,16 @@       n  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"stepDown\"]($2)"         ghcjs_dom_html_input_element_step_down ::         JSRef HTMLInputElement -> Int -> IO ()-#else +#else ghcjs_dom_html_input_element_step_down ::                                          JSRef HTMLInputElement -> Int -> IO () ghcjs_dom_html_input_element_step_down = undefined #endif- + htmlInputElementStepDown ::                          (IsHTMLInputElement self) => self -> Int -> IO () htmlInputElementStepDown self n@@ -204,17 +204,17 @@       n  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_input_element_check_validity ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_check_validity ::                                               JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_check_validity = undefined #endif- + htmlInputElementCheckValidity ::                               (IsHTMLInputElement self) => self -> IO Bool htmlInputElementCheckValidity self@@ -222,16 +222,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_input_element_set_custom_validity ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_custom_validity ::                                                    JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_custom_validity = undefined #endif- + htmlInputElementSetCustomValidity ::                                   (IsHTMLInputElement self, ToJSString error) =>                                     self -> error -> IO ()@@ -241,16 +241,16 @@       (toJSString error)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"select\"]()"         ghcjs_dom_html_input_element_select ::         JSRef HTMLInputElement -> IO ()-#else +#else ghcjs_dom_html_input_element_select ::                                       JSRef HTMLInputElement -> IO () ghcjs_dom_html_input_element_select = undefined #endif- + htmlInputElementSelect ::                        (IsHTMLInputElement self) => self -> IO () htmlInputElementSelect self@@ -258,38 +258,19 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ -foreign import javascript unsafe "$1[\"setRangeText\"]($2)"-        ghcjs_dom_html_input_element_set_range_text ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else -ghcjs_dom_html_input_element_set_range_text ::-                                              JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_range_text = undefined-#endif- -htmlInputElementSetRangeText ::-                             (IsHTMLInputElement self, ToJSString replacement) =>-                               self -> replacement -> IO ()-htmlInputElementSetRangeText self replacement-  = ghcjs_dom_html_input_element_set_range_text-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString replacement)---#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "$1[\"setRangeText\"]($2, $3, $4,\n$5)"         ghcjs_dom_html_input_element_set_range_text ::         JSRef HTMLInputElement ->           JSString -> Word -> Word -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_range_text ::                                               JSRef HTMLInputElement ->                                                 JSString -> Word -> Word -> JSString -> IO () ghcjs_dom_html_input_element_set_range_text = undefined #endif- + htmlInputElementSetRangeText ::                              (IsHTMLInputElement self, ToJSString replacement,                               ToJSString selectionMode) =>@@ -304,16 +285,16 @@       (toJSString selectionMode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setValueForUser\"]($2)"         ghcjs_dom_html_input_element_set_value_for_user ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_value_for_user ::                                                   JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_value_for_user = undefined #endif- + htmlInputElementSetValueForUser ::                                 (IsHTMLInputElement self, ToJSString value) =>                                   self -> value -> IO ()@@ -323,16 +304,16 @@       (toJSString value)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"accept\"] = $2;"         ghcjs_dom_html_input_element_set_accept ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_accept ::                                           JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_accept = undefined #endif- + htmlInputElementSetAccept ::                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetAccept self val@@ -341,16 +322,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"accept\"]"         ghcjs_dom_html_input_element_get_accept ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_accept ::                                           JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_accept = undefined #endif- + htmlInputElementGetAccept ::                           (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetAccept self@@ -359,16 +340,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"alt\"] = $2;"         ghcjs_dom_html_input_element_set_alt ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_alt ::                                        JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_alt = undefined #endif- + htmlInputElementSetAlt ::                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetAlt self val@@ -377,16 +358,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"alt\"]"         ghcjs_dom_html_input_element_get_alt ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_alt ::                                        JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_alt = undefined #endif- + htmlInputElementGetAlt ::                        (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetAlt self@@ -395,16 +376,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"         ghcjs_dom_html_input_element_set_autocomplete ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_autocomplete ::                                                 JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_autocomplete = undefined #endif- + htmlInputElementSetAutocomplete ::                                 (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetAutocomplete self val@@ -413,16 +394,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"autocomplete\"]"         ghcjs_dom_html_input_element_get_autocomplete ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_autocomplete ::                                                 JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_autocomplete = undefined #endif- + htmlInputElementGetAutocomplete ::                                 (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetAutocomplete self@@ -431,16 +412,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_input_element_set_autofocus ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_autofocus ::                                              JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_autofocus = undefined #endif- + htmlInputElementSetAutofocus ::                              (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetAutofocus self val@@ -449,16 +430,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_autofocus ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_autofocus ::                                              JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_autofocus = undefined #endif- + htmlInputElementGetAutofocus ::                              (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetAutofocus self@@ -466,16 +447,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"         ghcjs_dom_html_input_element_set_default_checked ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_default_checked ::                                                    JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_default_checked = undefined #endif- + htmlInputElementSetDefaultChecked ::                                   (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetDefaultChecked self val@@ -484,16 +465,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_default_checked ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_default_checked ::                                                    JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_default_checked = undefined #endif- + htmlInputElementGetDefaultChecked ::                                   (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetDefaultChecked self@@ -501,16 +482,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"checked\"] = $2;"         ghcjs_dom_html_input_element_set_checked ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_checked ::                                            JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_checked = undefined #endif- + htmlInputElementSetChecked ::                            (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetChecked self val@@ -519,16 +500,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_checked ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_checked ::                                            JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_checked = undefined #endif- + htmlInputElementGetChecked ::                            (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetChecked self@@ -536,16 +517,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"dirName\"] = $2;"         ghcjs_dom_html_input_element_set_dir_name ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_dir_name ::                                             JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_dir_name = undefined #endif- + htmlInputElementSetDirName ::                            (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetDirName self val@@ -554,16 +535,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"dirName\"]"         ghcjs_dom_html_input_element_get_dir_name ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_dir_name ::                                             JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_dir_name = undefined #endif- + htmlInputElementGetDirName ::                            (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetDirName self@@ -572,16 +553,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_input_element_set_disabled ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_disabled ::                                             JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_disabled = undefined #endif- + htmlInputElementSetDisabled ::                             (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetDisabled self val@@ -590,16 +571,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_disabled ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_disabled ::                                             JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_disabled = undefined #endif- + htmlInputElementGetDisabled ::                             (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetDisabled self@@ -607,16 +588,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_input_element_get_form ::         JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)-#else +#else ghcjs_dom_html_input_element_get_form ::                                         JSRef HTMLInputElement -> IO (JSRef HTMLFormElement) ghcjs_dom_html_input_element_get_form = undefined #endif- + htmlInputElementGetForm ::                         (IsHTMLInputElement self) => self -> IO (Maybe HTMLFormElement) htmlInputElementGetForm self@@ -625,16 +606,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"files\"] = $2;"         ghcjs_dom_html_input_element_set_files ::         JSRef HTMLInputElement -> JSRef FileList -> IO ()-#else +#else ghcjs_dom_html_input_element_set_files ::                                          JSRef HTMLInputElement -> JSRef FileList -> IO () ghcjs_dom_html_input_element_set_files = undefined #endif- + htmlInputElementSetFiles ::                          (IsHTMLInputElement self, IsFileList val) =>                            self -> Maybe val -> IO ()@@ -644,16 +625,16 @@       (maybe jsNull (unFileList . toFileList) val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"files\"]"         ghcjs_dom_html_input_element_get_files ::         JSRef HTMLInputElement -> IO (JSRef FileList)-#else +#else ghcjs_dom_html_input_element_get_files ::                                          JSRef HTMLInputElement -> IO (JSRef FileList) ghcjs_dom_html_input_element_get_files = undefined #endif- + htmlInputElementGetFiles ::                          (IsHTMLInputElement self) => self -> IO (Maybe FileList) htmlInputElementGetFiles self@@ -662,16 +643,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formAction\"] = $2;"         ghcjs_dom_html_input_element_set_form_action ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_form_action ::                                                JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_form_action = undefined #endif- + htmlInputElementSetFormAction ::                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetFormAction self val@@ -680,16 +661,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formAction\"]"         ghcjs_dom_html_input_element_get_form_action ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_form_action ::                                                JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_form_action = undefined #endif- + htmlInputElementGetFormAction ::                               (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetFormAction self@@ -698,16 +679,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"         ghcjs_dom_html_input_element_set_form_enctype ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_form_enctype ::                                                 JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_form_enctype = undefined #endif- + htmlInputElementSetFormEnctype ::                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetFormEnctype self val@@ -716,16 +697,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formEnctype\"]"         ghcjs_dom_html_input_element_get_form_enctype ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_form_enctype ::                                                 JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_form_enctype = undefined #endif- + htmlInputElementGetFormEnctype ::                                (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetFormEnctype self@@ -734,16 +715,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formMethod\"] = $2;"         ghcjs_dom_html_input_element_set_form_method ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_form_method ::                                                JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_form_method = undefined #endif- + htmlInputElementSetFormMethod ::                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetFormMethod self val@@ -752,16 +733,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formMethod\"]"         ghcjs_dom_html_input_element_get_form_method ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_form_method ::                                                JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_form_method = undefined #endif- + htmlInputElementGetFormMethod ::                               (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetFormMethod self@@ -770,16 +751,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"         ghcjs_dom_html_input_element_set_form_no_validate ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_form_no_validate ::                                                     JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_form_no_validate = undefined #endif- + htmlInputElementSetFormNoValidate ::                                   (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetFormNoValidate self val@@ -788,16 +769,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_form_no_validate ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_form_no_validate ::                                                     JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_form_no_validate = undefined #endif- + htmlInputElementGetFormNoValidate ::                                   (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetFormNoValidate self@@ -805,16 +786,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formTarget\"] = $2;"         ghcjs_dom_html_input_element_set_form_target ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_form_target ::                                                JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_form_target = undefined #endif- + htmlInputElementSetFormTarget ::                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetFormTarget self val@@ -823,16 +804,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"formTarget\"]"         ghcjs_dom_html_input_element_get_form_target ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_form_target ::                                                JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_form_target = undefined #endif- + htmlInputElementGetFormTarget ::                               (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetFormTarget self@@ -841,16 +822,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_input_element_set_height ::         JSRef HTMLInputElement -> Word -> IO ()-#else +#else ghcjs_dom_html_input_element_set_height ::                                           JSRef HTMLInputElement -> Word -> IO () ghcjs_dom_html_input_element_set_height = undefined #endif- + htmlInputElementSetHeight ::                           (IsHTMLInputElement self) => self -> Word -> IO () htmlInputElementSetHeight self val@@ -859,16 +840,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_input_element_get_height ::         JSRef HTMLInputElement -> IO Word-#else +#else ghcjs_dom_html_input_element_get_height ::                                           JSRef HTMLInputElement -> IO Word ghcjs_dom_html_input_element_get_height = undefined #endif- + htmlInputElementGetHeight ::                           (IsHTMLInputElement self) => self -> IO Word htmlInputElementGetHeight self@@ -876,16 +857,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"         ghcjs_dom_html_input_element_set_indeterminate ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_indeterminate ::                                                  JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_indeterminate = undefined #endif- + htmlInputElementSetIndeterminate ::                                  (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetIndeterminate self val@@ -894,16 +875,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_indeterminate ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_indeterminate ::                                                  JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_indeterminate = undefined #endif- + htmlInputElementGetIndeterminate ::                                  (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetIndeterminate self@@ -911,16 +892,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"list\"]"         ghcjs_dom_html_input_element_get_list ::         JSRef HTMLInputElement -> IO (JSRef HTMLElement)-#else +#else ghcjs_dom_html_input_element_get_list ::                                         JSRef HTMLInputElement -> IO (JSRef HTMLElement) ghcjs_dom_html_input_element_get_list = undefined #endif- + htmlInputElementGetList ::                         (IsHTMLInputElement self) => self -> IO (Maybe HTMLElement) htmlInputElementGetList self@@ -929,16 +910,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"max\"] = $2;"         ghcjs_dom_html_input_element_set_max ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_max ::                                        JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_max = undefined #endif- + htmlInputElementSetMax ::                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetMax self val@@ -947,16 +928,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"max\"]"         ghcjs_dom_html_input_element_get_max ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_max ::                                        JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_max = undefined #endif- + htmlInputElementGetMax ::                        (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetMax self@@ -965,16 +946,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"maxLength\"] = $2;"         ghcjs_dom_html_input_element_set_max_length ::         JSRef HTMLInputElement -> Int -> IO ()-#else +#else ghcjs_dom_html_input_element_set_max_length ::                                               JSRef HTMLInputElement -> Int -> IO () ghcjs_dom_html_input_element_set_max_length = undefined #endif- + htmlInputElementSetMaxLength ::                              (IsHTMLInputElement self) => self -> Int -> IO () htmlInputElementSetMaxLength self val@@ -983,16 +964,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"maxLength\"]"         ghcjs_dom_html_input_element_get_max_length ::         JSRef HTMLInputElement -> IO Int-#else +#else ghcjs_dom_html_input_element_get_max_length ::                                               JSRef HTMLInputElement -> IO Int ghcjs_dom_html_input_element_get_max_length = undefined #endif- + htmlInputElementGetMaxLength ::                              (IsHTMLInputElement self) => self -> IO Int htmlInputElementGetMaxLength self@@ -1000,16 +981,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"min\"] = $2;"         ghcjs_dom_html_input_element_set_min ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_min ::                                        JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_min = undefined #endif- + htmlInputElementSetMin ::                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetMin self val@@ -1018,16 +999,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"min\"]"         ghcjs_dom_html_input_element_get_min ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_min ::                                        JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_min = undefined #endif- + htmlInputElementGetMin ::                        (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetMin self@@ -1036,16 +1017,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"multiple\"] = $2;"         ghcjs_dom_html_input_element_set_multiple ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_multiple ::                                             JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_multiple = undefined #endif- + htmlInputElementSetMultiple ::                             (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetMultiple self val@@ -1054,16 +1035,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_multiple ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_multiple ::                                             JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_multiple = undefined #endif- + htmlInputElementGetMultiple ::                             (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetMultiple self@@ -1071,16 +1052,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_input_element_set_name ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_name ::                                         JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_name = undefined #endif- + htmlInputElementSetName ::                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetName self val@@ -1089,16 +1070,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_input_element_get_name ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_name ::                                         JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_name = undefined #endif- + htmlInputElementGetName ::                         (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetName self@@ -1107,16 +1088,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"pattern\"] = $2;"         ghcjs_dom_html_input_element_set_pattern ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_pattern ::                                            JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_pattern = undefined #endif- + htmlInputElementSetPattern ::                            (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetPattern self val@@ -1125,16 +1106,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"pattern\"]"         ghcjs_dom_html_input_element_get_pattern ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_pattern ::                                            JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_pattern = undefined #endif- + htmlInputElementGetPattern ::                            (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetPattern self@@ -1143,16 +1124,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"placeholder\"] = $2;"         ghcjs_dom_html_input_element_set_placeholder ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_placeholder ::                                                JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_placeholder = undefined #endif- + htmlInputElementSetPlaceholder ::                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetPlaceholder self val@@ -1161,16 +1142,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"placeholder\"]"         ghcjs_dom_html_input_element_get_placeholder ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_placeholder ::                                                JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_placeholder = undefined #endif- + htmlInputElementGetPlaceholder ::                                (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetPlaceholder self@@ -1179,16 +1160,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"readOnly\"] = $2;"         ghcjs_dom_html_input_element_set_read_only ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_read_only ::                                              JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_read_only = undefined #endif- + htmlInputElementSetReadOnly ::                             (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetReadOnly self val@@ -1197,16 +1178,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_read_only ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_read_only ::                                              JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_read_only = undefined #endif- + htmlInputElementGetReadOnly ::                             (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetReadOnly self@@ -1214,16 +1195,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"required\"] = $2;"         ghcjs_dom_html_input_element_set_required ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_required ::                                             JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_required = undefined #endif- + htmlInputElementSetRequired ::                             (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetRequired self val@@ -1232,16 +1213,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_required ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_required ::                                             JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_required = undefined #endif- + htmlInputElementGetRequired ::                             (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetRequired self@@ -1249,16 +1230,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_html_input_element_set_size ::         JSRef HTMLInputElement -> Word -> IO ()-#else +#else ghcjs_dom_html_input_element_set_size ::                                         JSRef HTMLInputElement -> Word -> IO () ghcjs_dom_html_input_element_set_size = undefined #endif- + htmlInputElementSetSize ::                         (IsHTMLInputElement self) => self -> Word -> IO () htmlInputElementSetSize self val@@ -1267,16 +1248,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_html_input_element_get_size ::         JSRef HTMLInputElement -> IO Word-#else +#else ghcjs_dom_html_input_element_get_size ::                                         JSRef HTMLInputElement -> IO Word ghcjs_dom_html_input_element_get_size = undefined #endif- + htmlInputElementGetSize ::                         (IsHTMLInputElement self) => self -> IO Word htmlInputElementGetSize self@@ -1284,16 +1265,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_input_element_set_src ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_src ::                                        JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_src = undefined #endif- + htmlInputElementSetSrc ::                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetSrc self val@@ -1302,16 +1283,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_input_element_get_src ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_src ::                                        JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_src = undefined #endif- + htmlInputElementGetSrc ::                        (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetSrc self@@ -1320,16 +1301,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"step\"] = $2;"         ghcjs_dom_html_input_element_set_step ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_step ::                                         JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_step = undefined #endif- + htmlInputElementSetStep ::                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetStep self val@@ -1338,16 +1319,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"step\"]"         ghcjs_dom_html_input_element_get_step ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_step ::                                         JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_step = undefined #endif- + htmlInputElementGetStep ::                         (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetStep self@@ -1356,16 +1337,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"         ghcjs_dom_html_input_element_set_default_value ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_default_value ::                                                  JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_default_value = undefined #endif- + htmlInputElementSetDefaultValue ::                                 (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetDefaultValue self val@@ -1374,16 +1355,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"defaultValue\"]"         ghcjs_dom_html_input_element_get_default_value ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_default_value ::                                                  JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_default_value = undefined #endif- + htmlInputElementGetDefaultValue ::                                 (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetDefaultValue self@@ -1392,16 +1373,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_input_element_set_value ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_value ::                                          JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_value = undefined #endif- + htmlInputElementSetValue ::                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetValue self val@@ -1410,16 +1391,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_input_element_get_value ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_value ::                                          JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_value = undefined #endif- + htmlInputElementGetValue ::                          (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetValue self@@ -1428,16 +1409,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"         ghcjs_dom_html_input_element_set_value_as_number ::         JSRef HTMLInputElement -> Double -> IO ()-#else +#else ghcjs_dom_html_input_element_set_value_as_number ::                                                    JSRef HTMLInputElement -> Double -> IO () ghcjs_dom_html_input_element_set_value_as_number = undefined #endif- + htmlInputElementSetValueAsNumber ::                                  (IsHTMLInputElement self) => self -> Double -> IO () htmlInputElementSetValueAsNumber self val@@ -1446,16 +1427,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"valueAsNumber\"]"         ghcjs_dom_html_input_element_get_value_as_number ::         JSRef HTMLInputElement -> IO Double-#else +#else ghcjs_dom_html_input_element_get_value_as_number ::                                                    JSRef HTMLInputElement -> IO Double ghcjs_dom_html_input_element_get_value_as_number = undefined #endif- + htmlInputElementGetValueAsNumber ::                                  (IsHTMLInputElement self) => self -> IO Double htmlInputElementGetValueAsNumber self@@ -1463,16 +1444,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_input_element_set_width ::         JSRef HTMLInputElement -> Word -> IO ()-#else +#else ghcjs_dom_html_input_element_set_width ::                                          JSRef HTMLInputElement -> Word -> IO () ghcjs_dom_html_input_element_set_width = undefined #endif- + htmlInputElementSetWidth ::                          (IsHTMLInputElement self) => self -> Word -> IO () htmlInputElementSetWidth self val@@ -1481,16 +1462,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_input_element_get_width ::         JSRef HTMLInputElement -> IO Word-#else +#else ghcjs_dom_html_input_element_get_width ::                                          JSRef HTMLInputElement -> IO Word ghcjs_dom_html_input_element_get_width = undefined #endif- + htmlInputElementGetWidth ::                          (IsHTMLInputElement self) => self -> IO Word htmlInputElementGetWidth self@@ -1498,16 +1479,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_will_validate ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_will_validate ::                                                  JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_will_validate = undefined #endif- + htmlInputElementGetWillValidate ::                                 (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetWillValidate self@@ -1515,16 +1496,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_input_element_get_validity ::         JSRef HTMLInputElement -> IO (JSRef ValidityState)-#else +#else ghcjs_dom_html_input_element_get_validity ::                                             JSRef HTMLInputElement -> IO (JSRef ValidityState) ghcjs_dom_html_input_element_get_validity = undefined #endif- + htmlInputElementGetValidity ::                             (IsHTMLInputElement self) => self -> IO (Maybe ValidityState) htmlInputElementGetValidity self@@ -1533,16 +1514,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_input_element_get_validation_message ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_validation_message ::                                                       JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_validation_message = undefined #endif- + htmlInputElementGetValidationMessage ::                                      (IsHTMLInputElement self, FromJSString result) =>                                        self -> IO result@@ -1552,16 +1533,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_input_element_get_labels ::         JSRef HTMLInputElement -> IO (JSRef NodeList)-#else +#else ghcjs_dom_html_input_element_get_labels ::                                           JSRef HTMLInputElement -> IO (JSRef NodeList) ghcjs_dom_html_input_element_get_labels = undefined #endif- + htmlInputElementGetLabels ::                           (IsHTMLInputElement self) => self -> IO (Maybe NodeList) htmlInputElementGetLabels self@@ -1570,16 +1551,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_input_element_set_align ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_align ::                                          JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_align = undefined #endif- + htmlInputElementSetAlign ::                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetAlign self val@@ -1588,16 +1569,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_input_element_get_align ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_align ::                                          JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_align = undefined #endif- + htmlInputElementGetAlign ::                          (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetAlign self@@ -1606,16 +1587,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"webkitdirectory\"] = $2;"         ghcjs_dom_html_input_element_set_webkitdirectory ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_webkitdirectory ::                                                    JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_webkitdirectory = undefined #endif- + htmlInputElementSetWebkitdirectory ::                                    (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetWebkitdirectory self val@@ -1624,17 +1605,17 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "($1[\"webkitdirectory\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_webkitdirectory ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_webkitdirectory ::                                                    JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_webkitdirectory = undefined #endif- + htmlInputElementGetWebkitdirectory ::                                    (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetWebkitdirectory self@@ -1642,16 +1623,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"useMap\"] = $2;"         ghcjs_dom_html_input_element_set_use_map ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_use_map ::                                            JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_use_map = undefined #endif- + htmlInputElementSetUseMap ::                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetUseMap self val@@ -1660,16 +1641,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"useMap\"]"         ghcjs_dom_html_input_element_get_use_map ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_use_map ::                                            JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_use_map = undefined #endif- + htmlInputElementGetUseMap ::                           (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetUseMap self@@ -1678,16 +1659,16 @@          (unHTMLInputElement (toHTMLInputElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"incremental\"] = $2;"         ghcjs_dom_html_input_element_set_incremental ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_incremental ::                                                JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_incremental = undefined #endif- + htmlInputElementSetIncremental ::                                (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetIncremental self val@@ -1696,16 +1677,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_incremental ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_incremental ::                                                JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_incremental = undefined #endif- + htmlInputElementGetIncremental ::                                (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetIncremental self@@ -1713,16 +1694,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"webkitSpeech\"] = $2;"         ghcjs_dom_html_input_element_set_webkit_speech ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_webkit_speech ::                                                  JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_webkit_speech = undefined #endif- + htmlInputElementSetWebkitSpeech ::                                 (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetWebkitSpeech self val@@ -1731,16 +1712,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"webkitSpeech\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_webkit_speech ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_webkit_speech ::                                                  JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_webkit_speech = undefined #endif- + htmlInputElementGetWebkitSpeech ::                                 (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetWebkitSpeech self@@ -1748,16 +1729,16 @@       (unHTMLInputElement (toHTMLInputElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"webkitGrammar\"] = $2;"         ghcjs_dom_html_input_element_set_webkit_grammar ::         JSRef HTMLInputElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_input_element_set_webkit_grammar ::                                                   JSRef HTMLInputElement -> Bool -> IO () ghcjs_dom_html_input_element_set_webkit_grammar = undefined #endif- + htmlInputElementSetWebkitGrammar ::                                  (IsHTMLInputElement self) => self -> Bool -> IO () htmlInputElementSetWebkitGrammar self val@@ -1766,22 +1747,22 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"webkitGrammar\"] ? 1 : 0)"         ghcjs_dom_html_input_element_get_webkit_grammar ::         JSRef HTMLInputElement -> IO Bool-#else +#else ghcjs_dom_html_input_element_get_webkit_grammar ::                                                   JSRef HTMLInputElement -> IO Bool ghcjs_dom_html_input_element_get_webkit_grammar = undefined #endif- + htmlInputElementGetWebkitGrammar ::                                  (IsHTMLInputElement self) => self -> IO Bool htmlInputElementGetWebkitGrammar self   = ghcjs_dom_html_input_element_get_webkit_grammar       (unHTMLInputElement (toHTMLInputElement self))- + htmlInputElementOnwebkitspeechchange ::                                      (IsHTMLInputElement self) =>                                        Signal self (EventM UIEvent self ())@@ -1789,16 +1770,16 @@   = (connect "webkitspeechchange")  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"capture\"] = $2;"         ghcjs_dom_html_input_element_set_capture ::         JSRef HTMLInputElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_input_element_set_capture ::                                            JSRef HTMLInputElement -> JSString -> IO () ghcjs_dom_html_input_element_set_capture = undefined #endif- + htmlInputElementSetCapture ::                            (IsHTMLInputElement self, ToJSString val) => self -> val -> IO () htmlInputElementSetCapture self val@@ -1807,16 +1788,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"capture\"]"         ghcjs_dom_html_input_element_get_capture ::         JSRef HTMLInputElement -> IO JSString-#else +#else ghcjs_dom_html_input_element_get_capture ::                                            JSRef HTMLInputElement -> IO JSString ghcjs_dom_html_input_element_get_capture = undefined #endif- + htmlInputElementGetCapture ::                            (IsHTMLInputElement self, FromJSString result) => self -> IO result htmlInputElementGetCapture self
src/GHCJS/DOM/HTMLKeygenElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLKeygenElement        (ghcjs_dom_html_keygen_element_check_validity,@@ -51,7 +51,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_keygen_element_check_validity ::@@ -69,7 +69,7 @@       (unHTMLKeygenElement (toHTMLKeygenElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_keygen_element_set_custom_validity ::         JSRef HTMLKeygenElement -> JSString -> IO ()@@ -88,7 +88,7 @@       (toJSString error)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_keygen_element_set_autofocus ::         JSRef HTMLKeygenElement -> Bool -> IO ()@@ -106,7 +106,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_keygen_element_get_autofocus ::         JSRef HTMLKeygenElement -> IO Bool@@ -123,7 +123,7 @@       (unHTMLKeygenElement (toHTMLKeygenElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"challenge\"] = $2;"         ghcjs_dom_html_keygen_element_set_challenge ::         JSRef HTMLKeygenElement -> JSString -> IO ()@@ -141,7 +141,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"challenge\"]"         ghcjs_dom_html_keygen_element_get_challenge ::         JSRef HTMLKeygenElement -> IO JSString@@ -160,7 +160,7 @@          (unHTMLKeygenElement (toHTMLKeygenElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_keygen_element_set_disabled ::         JSRef HTMLKeygenElement -> Bool -> IO ()@@ -178,7 +178,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_keygen_element_get_disabled ::         JSRef HTMLKeygenElement -> IO Bool@@ -195,7 +195,7 @@       (unHTMLKeygenElement (toHTMLKeygenElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_keygen_element_get_form ::         JSRef HTMLKeygenElement -> IO (JSRef HTMLFormElement)@@ -213,7 +213,7 @@          (unHTMLKeygenElement (toHTMLKeygenElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"keytype\"] = $2;"         ghcjs_dom_html_keygen_element_set_keytype ::         JSRef HTMLKeygenElement -> JSString -> IO ()@@ -231,7 +231,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"keytype\"]"         ghcjs_dom_html_keygen_element_get_keytype ::         JSRef HTMLKeygenElement -> IO JSString@@ -250,7 +250,7 @@          (unHTMLKeygenElement (toHTMLKeygenElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_keygen_element_set_name ::         JSRef HTMLKeygenElement -> JSString -> IO ()@@ -268,7 +268,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_keygen_element_get_name ::         JSRef HTMLKeygenElement -> IO JSString@@ -287,7 +287,7 @@          (unHTMLKeygenElement (toHTMLKeygenElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_keygen_element_get_will_validate ::         JSRef HTMLKeygenElement -> IO Bool@@ -304,7 +304,7 @@       (unHTMLKeygenElement (toHTMLKeygenElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_keygen_element_get_validity ::         JSRef HTMLKeygenElement -> IO (JSRef ValidityState)@@ -322,7 +322,7 @@          (unHTMLKeygenElement (toHTMLKeygenElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_keygen_element_get_validation_message ::         JSRef HTMLKeygenElement -> IO JSString@@ -341,7 +341,7 @@          (unHTMLKeygenElement (toHTMLKeygenElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_keygen_element_get_labels ::         JSRef HTMLKeygenElement -> IO (JSRef NodeList)
src/GHCJS/DOM/HTMLLIElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLLIElement        (ghcjs_dom_htmlli_element_set_value, htmlliElementSetValue,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_htmlli_element_set_value ::         JSRef HTMLLIElement -> Int -> IO ()@@ -40,7 +40,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_htmlli_element_get_value :: JSRef HTMLLIElement -> IO Int #else
src/GHCJS/DOM/HTMLLabelElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLLabelElement        (ghcjs_dom_html_label_element_get_form, htmlLabelElementGetForm,@@ -26,7 +26,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_label_element_get_form ::         JSRef HTMLLabelElement -> IO (JSRef HTMLFormElement)@@ -44,7 +44,7 @@          (unHTMLLabelElement (toHTMLLabelElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         ghcjs_dom_html_label_element_set_html_for ::         JSRef HTMLLabelElement -> JSString -> IO ()@@ -62,7 +62,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"htmlFor\"]"         ghcjs_dom_html_label_element_get_html_for ::         JSRef HTMLLabelElement -> IO JSString@@ -80,7 +80,7 @@          (unHTMLLabelElement (toHTMLLabelElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"control\"]"         ghcjs_dom_html_label_element_get_control ::         JSRef HTMLLabelElement -> IO (JSRef HTMLElement)
src/GHCJS/DOM/HTMLLegendElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLLegendElement        (ghcjs_dom_html_legend_element_get_form, htmlLegendElementGetForm,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_legend_element_get_form ::         JSRef HTMLLegendElement -> IO (JSRef HTMLFormElement)@@ -41,7 +41,7 @@          (unHTMLLegendElement (toHTMLLegendElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_legend_element_set_align ::         JSRef HTMLLegendElement -> JSString -> IO ()@@ -59,7 +59,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_legend_element_get_align ::         JSRef HTMLLegendElement -> IO JSString
src/GHCJS/DOM/HTMLLinkElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLLinkElement        (ghcjs_dom_html_link_element_set_disabled,@@ -40,7 +40,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_link_element_set_disabled ::         JSRef HTMLLinkElement -> Bool -> IO ()@@ -58,7 +58,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_link_element_get_disabled ::         JSRef HTMLLinkElement -> IO Bool@@ -75,7 +75,7 @@       (unHTMLLinkElement (toHTMLLinkElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"] = $2;"         ghcjs_dom_html_link_element_set_charset ::         JSRef HTMLLinkElement -> JSString -> IO ()@@ -93,7 +93,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"]"         ghcjs_dom_html_link_element_get_charset ::         JSRef HTMLLinkElement -> IO JSString@@ -111,7 +111,7 @@          (unHTMLLinkElement (toHTMLLinkElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_link_element_set_href ::         JSRef HTMLLinkElement -> JSString -> IO ()@@ -129,7 +129,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_link_element_get_href ::         JSRef HTMLLinkElement -> IO JSString@@ -147,7 +147,7 @@          (unHTMLLinkElement (toHTMLLinkElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hreflang\"] = $2;"         ghcjs_dom_html_link_element_set_hreflang ::         JSRef HTMLLinkElement -> JSString -> IO ()@@ -165,7 +165,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hreflang\"]"         ghcjs_dom_html_link_element_get_hreflang ::         JSRef HTMLLinkElement -> IO JSString@@ -183,7 +183,7 @@          (unHTMLLinkElement (toHTMLLinkElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"media\"] = $2;"         ghcjs_dom_html_link_element_set_media ::         JSRef HTMLLinkElement -> JSString -> IO ()@@ -201,7 +201,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_html_link_element_get_media ::         JSRef HTMLLinkElement -> IO JSString@@ -219,7 +219,7 @@          (unHTMLLinkElement (toHTMLLinkElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rel\"] = $2;"         ghcjs_dom_html_link_element_set_rel ::         JSRef HTMLLinkElement -> JSString -> IO ()@@ -237,7 +237,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rel\"]"         ghcjs_dom_html_link_element_get_rel ::         JSRef HTMLLinkElement -> IO JSString@@ -255,7 +255,7 @@          (unHTMLLinkElement (toHTMLLinkElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rev\"] = $2;"         ghcjs_dom_html_link_element_set_rev ::         JSRef HTMLLinkElement -> JSString -> IO ()@@ -273,7 +273,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rev\"]"         ghcjs_dom_html_link_element_get_rev ::         JSRef HTMLLinkElement -> IO JSString@@ -291,7 +291,7 @@          (unHTMLLinkElement (toHTMLLinkElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_link_element_set_target ::         JSRef HTMLLinkElement -> JSString -> IO ()@@ -309,7 +309,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_link_element_get_target ::         JSRef HTMLLinkElement -> IO JSString@@ -327,7 +327,7 @@          (unHTMLLinkElement (toHTMLLinkElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sheet\"]"         ghcjs_dom_html_link_element_get_sheet ::         JSRef HTMLLinkElement -> IO (JSRef StyleSheet)
src/GHCJS/DOM/HTMLMapElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLMapElement        (ghcjs_dom_html_map_element_get_areas, htmlMapElementGetAreas,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"areas\"]"         ghcjs_dom_html_map_element_get_areas ::         JSRef HTMLMapElement -> IO (JSRef HTMLCollection)@@ -41,7 +41,7 @@          (unHTMLMapElement (toHTMLMapElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_map_element_set_name ::         JSRef HTMLMapElement -> JSString -> IO ()@@ -59,7 +59,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_map_element_get_name ::         JSRef HTMLMapElement -> IO JSString
src/GHCJS/DOM/HTMLMarqueeElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLMarqueeElement        (ghcjs_dom_html_marquee_element_start, htmlMarqueeElementStart,@@ -64,7 +64,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"start\"]()"         ghcjs_dom_html_marquee_element_start ::         JSRef HTMLMarqueeElement -> IO ()@@ -81,7 +81,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"stop\"]()"         ghcjs_dom_html_marquee_element_stop ::         JSRef HTMLMarqueeElement -> IO ()@@ -98,7 +98,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"behavior\"] = $2;"         ghcjs_dom_html_marquee_element_set_behavior ::         JSRef HTMLMarqueeElement -> JSString -> IO ()@@ -116,7 +116,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"behavior\"]"         ghcjs_dom_html_marquee_element_get_behavior ::         JSRef HTMLMarqueeElement -> IO JSString@@ -135,7 +135,7 @@          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_marquee_element_set_bg_color ::         JSRef HTMLMarqueeElement -> JSString -> IO ()@@ -153,7 +153,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_marquee_element_get_bg_color ::         JSRef HTMLMarqueeElement -> IO JSString@@ -172,7 +172,7 @@          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"direction\"] = $2;"         ghcjs_dom_html_marquee_element_set_direction ::         JSRef HTMLMarqueeElement -> JSString -> IO ()@@ -190,7 +190,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"direction\"]"         ghcjs_dom_html_marquee_element_get_direction ::         JSRef HTMLMarqueeElement -> IO JSString@@ -209,7 +209,7 @@          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_marquee_element_set_height ::         JSRef HTMLMarqueeElement -> JSString -> IO ()@@ -227,7 +227,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_marquee_element_get_height ::         JSRef HTMLMarqueeElement -> IO JSString@@ -246,7 +246,7 @@          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_marquee_element_set_hspace ::         JSRef HTMLMarqueeElement -> Word -> IO ()@@ -264,7 +264,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_marquee_element_get_hspace ::         JSRef HTMLMarqueeElement -> IO Word@@ -281,7 +281,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"loop\"] = $2;"         ghcjs_dom_html_marquee_element_set_loop ::         JSRef HTMLMarqueeElement -> Int -> IO ()@@ -299,7 +299,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"loop\"]"         ghcjs_dom_html_marquee_element_get_loop ::         JSRef HTMLMarqueeElement -> IO Int@@ -316,7 +316,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"         ghcjs_dom_html_marquee_element_set_scroll_amount ::         JSRef HTMLMarqueeElement -> Int -> IO ()@@ -334,7 +334,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollAmount\"]"         ghcjs_dom_html_marquee_element_get_scroll_amount ::         JSRef HTMLMarqueeElement -> IO Int@@ -351,7 +351,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"         ghcjs_dom_html_marquee_element_set_scroll_delay ::         JSRef HTMLMarqueeElement -> Int -> IO ()@@ -369,7 +369,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrollDelay\"]"         ghcjs_dom_html_marquee_element_get_scroll_delay ::         JSRef HTMLMarqueeElement -> IO Int@@ -386,7 +386,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"         ghcjs_dom_html_marquee_element_set_true_speed ::         JSRef HTMLMarqueeElement -> Bool -> IO ()@@ -404,7 +404,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"         ghcjs_dom_html_marquee_element_get_true_speed ::         JSRef HTMLMarqueeElement -> IO Bool@@ -421,7 +421,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_marquee_element_set_vspace ::         JSRef HTMLMarqueeElement -> Word -> IO ()@@ -439,7 +439,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_marquee_element_get_vspace ::         JSRef HTMLMarqueeElement -> IO Word@@ -456,7 +456,7 @@       (unHTMLMarqueeElement (toHTMLMarqueeElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_marquee_element_set_width ::         JSRef HTMLMarqueeElement -> JSString -> IO ()@@ -474,7 +474,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_marquee_element_get_width ::         JSRef HTMLMarqueeElement -> IO JSString
src/GHCJS/DOM/HTMLMediaElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLMediaElement        (ghcjs_dom_html_media_element_load, htmlMediaElementLoad,@@ -104,7 +104,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"load\"]()"         ghcjs_dom_html_media_element_load ::         JSRef HTMLMediaElement -> IO ()@@ -120,7 +120,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"canPlayType\"]($2)"         ghcjs_dom_html_media_element_can_play_type ::         JSRef HTMLMediaElement -> JSString -> IO JSString@@ -140,7 +140,7 @@          (toJSString type'))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"play\"]()"         ghcjs_dom_html_media_element_play ::         JSRef HTMLMediaElement -> IO ()@@ -156,7 +156,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pause\"]()"         ghcjs_dom_html_media_element_pause ::         JSRef HTMLMediaElement -> IO ()@@ -181,7 +181,7 @@ cHAVE_ENOUGH_DATA = 4  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"error\"]"         ghcjs_dom_html_media_element_get_error ::         JSRef HTMLMediaElement -> IO (JSRef MediaError)@@ -199,7 +199,7 @@          (unHTMLMediaElement (toHTMLMediaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_media_element_set_src ::         JSRef HTMLMediaElement -> JSString -> IO ()@@ -217,7 +217,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_media_element_get_src ::         JSRef HTMLMediaElement -> IO JSString@@ -235,7 +235,7 @@          (unHTMLMediaElement (toHTMLMediaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"currentSrc\"]"         ghcjs_dom_html_media_element_get_current_src ::         JSRef HTMLMediaElement -> IO JSString@@ -253,7 +253,7 @@          (unHTMLMediaElement (toHTMLMediaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"networkState\"]"         ghcjs_dom_html_media_element_get_network_state ::         JSRef HTMLMediaElement -> IO Word@@ -270,7 +270,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"preload\"] = $2;"         ghcjs_dom_html_media_element_set_preload ::         JSRef HTMLMediaElement -> JSString -> IO ()@@ -288,7 +288,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"preload\"]"         ghcjs_dom_html_media_element_get_preload ::         JSRef HTMLMediaElement -> IO JSString@@ -306,7 +306,7 @@          (unHTMLMediaElement (toHTMLMediaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"buffered\"]"         ghcjs_dom_html_media_element_get_buffered ::         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)@@ -324,7 +324,7 @@          (unHTMLMediaElement (toHTMLMediaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"readyState\"]"         ghcjs_dom_html_media_element_get_ready_state ::         JSRef HTMLMediaElement -> IO Word@@ -341,7 +341,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_seeking ::         JSRef HTMLMediaElement -> IO Bool@@ -358,7 +358,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"currentTime\"] = $2;"         ghcjs_dom_html_media_element_set_current_time ::         JSRef HTMLMediaElement -> Double -> IO ()@@ -376,7 +376,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"currentTime\"]"         ghcjs_dom_html_media_element_get_current_time ::         JSRef HTMLMediaElement -> IO Double@@ -393,7 +393,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"initialTime\"]"         ghcjs_dom_html_media_element_get_initial_time ::         JSRef HTMLMediaElement -> IO Double@@ -410,7 +410,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"startTime\"]"         ghcjs_dom_html_media_element_get_start_time ::         JSRef HTMLMediaElement -> IO Double@@ -427,7 +427,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"duration\"]"         ghcjs_dom_html_media_element_get_duration ::         JSRef HTMLMediaElement -> IO Double@@ -444,7 +444,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_paused ::         JSRef HTMLMediaElement -> IO Bool@@ -461,7 +461,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"defaultPlaybackRate\"] = $2;"         ghcjs_dom_html_media_element_set_default_playback_rate ::@@ -480,7 +480,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"         ghcjs_dom_html_media_element_get_default_playback_rate ::         JSRef HTMLMediaElement -> IO Double@@ -497,7 +497,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"         ghcjs_dom_html_media_element_set_playback_rate ::         JSRef HTMLMediaElement -> Double -> IO ()@@ -515,7 +515,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"playbackRate\"]"         ghcjs_dom_html_media_element_get_playback_rate ::         JSRef HTMLMediaElement -> IO Double@@ -532,7 +532,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"played\"]"         ghcjs_dom_html_media_element_get_played ::         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)@@ -550,7 +550,7 @@          (unHTMLMediaElement (toHTMLMediaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"seekable\"]"         ghcjs_dom_html_media_element_get_seekable ::         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)@@ -568,7 +568,7 @@          (unHTMLMediaElement (toHTMLMediaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_ended ::         JSRef HTMLMediaElement -> IO Bool@@ -585,7 +585,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"autoplay\"] = $2;"         ghcjs_dom_html_media_element_set_autoplay ::         JSRef HTMLMediaElement -> Bool -> IO ()@@ -603,7 +603,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_autoplay ::         JSRef HTMLMediaElement -> IO Bool@@ -620,7 +620,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"loop\"] = $2;"         ghcjs_dom_html_media_element_set_loop ::         JSRef HTMLMediaElement -> Bool -> IO ()@@ -638,7 +638,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_loop ::         JSRef HTMLMediaElement -> IO Bool@@ -655,7 +655,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"controls\"] = $2;"         ghcjs_dom_html_media_element_set_controls ::         JSRef HTMLMediaElement -> Bool -> IO ()@@ -673,7 +673,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_controls ::         JSRef HTMLMediaElement -> IO Bool@@ -690,7 +690,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"volume\"] = $2;"         ghcjs_dom_html_media_element_set_volume ::         JSRef HTMLMediaElement -> Double -> IO ()@@ -708,7 +708,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"volume\"]"         ghcjs_dom_html_media_element_get_volume ::         JSRef HTMLMediaElement -> IO Double@@ -725,7 +725,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"muted\"] = $2;"         ghcjs_dom_html_media_element_set_muted ::         JSRef HTMLMediaElement -> Bool -> IO ()@@ -743,7 +743,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_muted ::         JSRef HTMLMediaElement -> IO Bool@@ -760,7 +760,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;"         ghcjs_dom_html_media_element_set_default_muted ::         JSRef HTMLMediaElement -> Bool -> IO ()@@ -778,7 +778,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_default_muted ::         JSRef HTMLMediaElement -> IO Bool@@ -795,7 +795,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"webkitPreservesPitch\"] = $2;"         ghcjs_dom_html_media_element_set_webkit_preserves_pitch ::@@ -814,7 +814,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"webkitPreservesPitch\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_webkit_preserves_pitch ::@@ -832,7 +832,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_webkit_has_closed_captions ::@@ -851,7 +851,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"webkitClosedCaptionsVisible\"] = $2;"         ghcjs_dom_html_media_element_set_webkit_closed_captions_visible ::@@ -872,7 +872,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_webkit_closed_captions_visible ::@@ -891,7 +891,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"webkitAudioDecodedByteCount\"]"         ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count ::@@ -910,7 +910,7 @@       (unHTMLMediaElement (toHTMLMediaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"webkitVideoDecodedByteCount\"]"         ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count ::@@ -933,7 +933,7 @@ htmlMediaElementOnwebkitneedkey = (connect "webkitneedkey")  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"         ghcjs_dom_html_media_element_set_media_group ::         JSRef HTMLMediaElement -> JSString -> IO ()@@ -951,7 +951,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"mediaGroup\"]"         ghcjs_dom_html_media_element_get_media_group ::         JSRef HTMLMediaElement -> IO JSString
src/GHCJS/DOM/HTMLMenuElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLMenuElement        (ghcjs_dom_html_menu_element_set_compact,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_html_menu_element_set_compact ::         JSRef HTMLMenuElement -> Bool -> IO ()@@ -40,7 +40,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_html_menu_element_get_compact ::         JSRef HTMLMenuElement -> IO Bool
src/GHCJS/DOM/HTMLMetaElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLMetaElement        (ghcjs_dom_html_meta_element_set_content,@@ -30,7 +30,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"content\"] = $2;"         ghcjs_dom_html_meta_element_set_content ::         JSRef HTMLMetaElement -> JSString -> IO ()@@ -48,7 +48,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"content\"]"         ghcjs_dom_html_meta_element_get_content ::         JSRef HTMLMetaElement -> IO JSString@@ -66,7 +66,7 @@          (unHTMLMetaElement (toHTMLMetaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"         ghcjs_dom_html_meta_element_set_http_equiv ::         JSRef HTMLMetaElement -> JSString -> IO ()@@ -84,7 +84,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"httpEquiv\"]"         ghcjs_dom_html_meta_element_get_http_equiv ::         JSRef HTMLMetaElement -> IO JSString@@ -102,7 +102,7 @@          (unHTMLMetaElement (toHTMLMetaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_meta_element_set_name ::         JSRef HTMLMetaElement -> JSString -> IO ()@@ -120,7 +120,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_meta_element_get_name ::         JSRef HTMLMetaElement -> IO JSString@@ -138,7 +138,7 @@          (unHTMLMetaElement (toHTMLMetaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scheme\"] = $2;"         ghcjs_dom_html_meta_element_set_scheme ::         JSRef HTMLMetaElement -> JSString -> IO ()@@ -156,7 +156,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scheme\"]"         ghcjs_dom_html_meta_element_get_scheme ::         JSRef HTMLMetaElement -> IO JSString
src/GHCJS/DOM/HTMLModElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLModElement        (ghcjs_dom_html_mod_element_set_cite, htmlModElementSetCite,@@ -25,7 +25,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cite\"] = $2;"         ghcjs_dom_html_mod_element_set_cite ::         JSRef HTMLModElement -> JSString -> IO ()@@ -43,7 +43,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cite\"]"         ghcjs_dom_html_mod_element_get_cite ::         JSRef HTMLModElement -> IO JSString@@ -61,7 +61,7 @@          (unHTMLModElement (toHTMLModElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"dateTime\"] = $2;"         ghcjs_dom_html_mod_element_set_date_time ::         JSRef HTMLModElement -> JSString -> IO ()@@ -79,7 +79,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"dateTime\"]"         ghcjs_dom_html_mod_element_get_date_time ::         JSRef HTMLModElement -> IO JSString
src/GHCJS/DOM/HTMLOListElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLOListElement        (ghcjs_dom_htmlo_list_element_set_compact,@@ -29,7 +29,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_htmlo_list_element_set_compact ::         JSRef HTMLOListElement -> Bool -> IO ()@@ -47,7 +47,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_htmlo_list_element_get_compact ::         JSRef HTMLOListElement -> IO Bool@@ -64,7 +64,7 @@       (unHTMLOListElement (toHTMLOListElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"start\"] = $2;"         ghcjs_dom_htmlo_list_element_set_start ::         JSRef HTMLOListElement -> Int -> IO ()@@ -82,7 +82,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"start\"]"         ghcjs_dom_htmlo_list_element_get_start ::         JSRef HTMLOListElement -> IO Int@@ -99,7 +99,7 @@       (unHTMLOListElement (toHTMLOListElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"reversed\"] = $2;"         ghcjs_dom_htmlo_list_element_set_reversed ::         JSRef HTMLOListElement -> Bool -> IO ()@@ -117,7 +117,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)"         ghcjs_dom_htmlo_list_element_get_reversed ::         JSRef HTMLOListElement -> IO Bool
src/GHCJS/DOM/HTMLObjectElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLObjectElement        (ghcjs_dom_html_object_element_check_validity,@@ -83,7 +83,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_object_element_check_validity ::@@ -101,7 +101,7 @@       (unHTMLObjectElement (toHTMLObjectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_object_element_set_custom_validity ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -120,7 +120,7 @@       (toJSString error)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_object_element_get_form ::         JSRef HTMLObjectElement -> IO (JSRef HTMLFormElement)@@ -138,7 +138,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"code\"] = $2;"         ghcjs_dom_html_object_element_set_code ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -156,7 +156,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"code\"]"         ghcjs_dom_html_object_element_get_code ::         JSRef HTMLObjectElement -> IO JSString@@ -175,7 +175,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_object_element_set_align ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -193,7 +193,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_object_element_get_align ::         JSRef HTMLObjectElement -> IO JSString@@ -212,7 +212,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"archive\"] = $2;"         ghcjs_dom_html_object_element_set_archive ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -230,7 +230,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"archive\"]"         ghcjs_dom_html_object_element_get_archive ::         JSRef HTMLObjectElement -> IO JSString@@ -249,7 +249,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"border\"] = $2;"         ghcjs_dom_html_object_element_set_border ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -267,7 +267,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"border\"]"         ghcjs_dom_html_object_element_get_border ::         JSRef HTMLObjectElement -> IO JSString@@ -286,7 +286,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"codeBase\"] = $2;"         ghcjs_dom_html_object_element_set_code_base ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -304,7 +304,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"codeBase\"]"         ghcjs_dom_html_object_element_get_code_base ::         JSRef HTMLObjectElement -> IO JSString@@ -323,7 +323,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"codeType\"] = $2;"         ghcjs_dom_html_object_element_set_code_type ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -341,7 +341,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"codeType\"]"         ghcjs_dom_html_object_element_get_code_type ::         JSRef HTMLObjectElement -> IO JSString@@ -360,7 +360,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"data\"] = $2;"         ghcjs_dom_html_object_element_set_data ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -378,7 +378,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"data\"]"         ghcjs_dom_html_object_element_get_data ::         JSRef HTMLObjectElement -> IO JSString@@ -397,7 +397,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"declare\"] = $2;"         ghcjs_dom_html_object_element_set_declare ::         JSRef HTMLObjectElement -> Bool -> IO ()@@ -415,7 +415,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)"         ghcjs_dom_html_object_element_get_declare ::         JSRef HTMLObjectElement -> IO Bool@@ -432,7 +432,7 @@       (unHTMLObjectElement (toHTMLObjectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_object_element_set_height ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -450,7 +450,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_object_element_get_height ::         JSRef HTMLObjectElement -> IO JSString@@ -469,7 +469,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_object_element_set_hspace ::         JSRef HTMLObjectElement -> Int -> IO ()@@ -487,7 +487,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_object_element_get_hspace ::         JSRef HTMLObjectElement -> IO Int@@ -504,7 +504,7 @@       (unHTMLObjectElement (toHTMLObjectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_object_element_set_name ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -522,7 +522,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_object_element_get_name ::         JSRef HTMLObjectElement -> IO JSString@@ -541,7 +541,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"standby\"] = $2;"         ghcjs_dom_html_object_element_set_standby ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -559,7 +559,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"standby\"]"         ghcjs_dom_html_object_element_get_standby ::         JSRef HTMLObjectElement -> IO JSString@@ -578,7 +578,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"useMap\"] = $2;"         ghcjs_dom_html_object_element_set_use_map ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -596,7 +596,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"useMap\"]"         ghcjs_dom_html_object_element_get_use_map ::         JSRef HTMLObjectElement -> IO JSString@@ -615,7 +615,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_object_element_set_vspace ::         JSRef HTMLObjectElement -> Int -> IO ()@@ -633,7 +633,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_object_element_get_vspace ::         JSRef HTMLObjectElement -> IO Int@@ -650,7 +650,7 @@       (unHTMLObjectElement (toHTMLObjectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_object_element_set_width ::         JSRef HTMLObjectElement -> JSString -> IO ()@@ -668,7 +668,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_object_element_get_width ::         JSRef HTMLObjectElement -> IO JSString@@ -687,7 +687,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_object_element_get_will_validate ::         JSRef HTMLObjectElement -> IO Bool@@ -704,7 +704,7 @@       (unHTMLObjectElement (toHTMLObjectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_object_element_get_validity ::         JSRef HTMLObjectElement -> IO (JSRef ValidityState)@@ -722,7 +722,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_object_element_get_validation_message ::         JSRef HTMLObjectElement -> IO JSString@@ -741,7 +741,7 @@          (unHTMLObjectElement (toHTMLObjectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"contentDocument\"]"         ghcjs_dom_html_object_element_get_content_document ::         JSRef HTMLObjectElement -> IO (JSRef Document)
src/GHCJS/DOM/HTMLOptGroupElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLOptGroupElement        (ghcjs_dom_html_opt_group_element_set_disabled,@@ -28,7 +28,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_opt_group_element_set_disabled ::         JSRef HTMLOptGroupElement -> Bool -> IO ()@@ -46,7 +46,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_opt_group_element_get_disabled ::         JSRef HTMLOptGroupElement -> IO Bool@@ -63,7 +63,7 @@       (unHTMLOptGroupElement (toHTMLOptGroupElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"label\"] = $2;"         ghcjs_dom_html_opt_group_element_set_label ::         JSRef HTMLOptGroupElement -> JSString -> IO ()@@ -82,7 +82,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"label\"]"         ghcjs_dom_html_opt_group_element_get_label ::         JSRef HTMLOptGroupElement -> IO JSString
src/GHCJS/DOM/HTMLOptionElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLOptionElement        (ghcjs_dom_html_option_element_set_disabled,@@ -39,7 +39,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_option_element_set_disabled ::         JSRef HTMLOptionElement -> Bool -> IO ()@@ -57,7 +57,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_option_element_get_disabled ::         JSRef HTMLOptionElement -> IO Bool@@ -74,7 +74,7 @@       (unHTMLOptionElement (toHTMLOptionElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_option_element_get_form ::         JSRef HTMLOptionElement -> IO (JSRef HTMLFormElement)@@ -92,7 +92,7 @@          (unHTMLOptionElement (toHTMLOptionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"label\"] = $2;"         ghcjs_dom_html_option_element_set_label ::         JSRef HTMLOptionElement -> JSString -> IO ()@@ -110,7 +110,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"label\"]"         ghcjs_dom_html_option_element_get_label ::         JSRef HTMLOptionElement -> IO JSString@@ -129,7 +129,7 @@          (unHTMLOptionElement (toHTMLOptionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"         ghcjs_dom_html_option_element_set_default_selected ::         JSRef HTMLOptionElement -> Bool -> IO ()@@ -147,7 +147,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"defaultSelected\"] ? 1 : 0)"         ghcjs_dom_html_option_element_get_default_selected ::@@ -165,7 +165,7 @@       (unHTMLOptionElement (toHTMLOptionElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selected\"] = $2;"         ghcjs_dom_html_option_element_set_selected ::         JSRef HTMLOptionElement -> Bool -> IO ()@@ -183,7 +183,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)"         ghcjs_dom_html_option_element_get_selected ::         JSRef HTMLOptionElement -> IO Bool@@ -200,7 +200,7 @@       (unHTMLOptionElement (toHTMLOptionElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_option_element_set_value ::         JSRef HTMLOptionElement -> JSString -> IO ()@@ -218,7 +218,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_option_element_get_value ::         JSRef HTMLOptionElement -> IO JSString@@ -237,7 +237,7 @@          (unHTMLOptionElement (toHTMLOptionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_option_element_get_text ::         JSRef HTMLOptionElement -> IO JSString@@ -256,7 +256,7 @@          (unHTMLOptionElement (toHTMLOptionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"index\"]"         ghcjs_dom_html_option_element_get_index ::         JSRef HTMLOptionElement -> IO Int
src/GHCJS/DOM/HTMLOptionsCollection.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLOptionsCollection        (ghcjs_dom_html_options_collection_named_item,@@ -26,7 +26,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_html_options_collection_named_item ::         JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node)@@ -47,7 +47,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"         ghcjs_dom_html_options_collection_set_selected_index ::         JSRef HTMLOptionsCollection -> Int -> IO ()@@ -65,7 +65,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selectedIndex\"]"         ghcjs_dom_html_options_collection_get_selected_index ::         JSRef HTMLOptionsCollection -> IO Int
src/GHCJS/DOM/HTMLParagraphElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLParagraphElement        (ghcjs_dom_html_paragraph_element_set_align,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_paragraph_element_set_align ::         JSRef HTMLParagraphElement -> JSString -> IO ()@@ -43,7 +43,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_paragraph_element_get_align ::         JSRef HTMLParagraphElement -> IO JSString
src/GHCJS/DOM/HTMLParamElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLParamElement        (ghcjs_dom_html_param_element_set_name, htmlParamElementSetName,@@ -27,7 +27,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_param_element_set_name ::         JSRef HTMLParamElement -> JSString -> IO ()@@ -45,7 +45,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_param_element_get_name ::         JSRef HTMLParamElement -> IO JSString@@ -63,7 +63,7 @@          (unHTMLParamElement (toHTMLParamElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_param_element_set_value ::         JSRef HTMLParamElement -> JSString -> IO ()@@ -81,7 +81,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_param_element_get_value ::         JSRef HTMLParamElement -> IO JSString@@ -99,7 +99,7 @@          (unHTMLParamElement (toHTMLParamElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"valueType\"] = $2;"         ghcjs_dom_html_param_element_set_value_type ::         JSRef HTMLParamElement -> JSString -> IO ()@@ -117,7 +117,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"valueType\"]"         ghcjs_dom_html_param_element_get_value_type ::         JSRef HTMLParamElement -> IO JSString
src/GHCJS/DOM/HTMLPreElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLPreElement        (ghcjs_dom_html_pre_element_set_width, htmlPreElementSetWidth,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_pre_element_set_width ::         JSRef HTMLPreElement -> Int -> IO ()@@ -42,7 +42,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_pre_element_get_width ::         JSRef HTMLPreElement -> IO Int@@ -58,7 +58,7 @@       (unHTMLPreElement (toHTMLPreElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"wrap\"] = $2;"         ghcjs_dom_html_pre_element_set_wrap ::         JSRef HTMLPreElement -> Bool -> IO ()@@ -76,7 +76,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)"         ghcjs_dom_html_pre_element_get_wrap ::         JSRef HTMLPreElement -> IO Bool
src/GHCJS/DOM/HTMLQuoteElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLQuoteElement        (ghcjs_dom_html_quote_element_set_cite, htmlQuoteElementSetCite,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cite\"] = $2;"         ghcjs_dom_html_quote_element_set_cite ::         JSRef HTMLQuoteElement -> JSString -> IO ()@@ -40,7 +40,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cite\"]"         ghcjs_dom_html_quote_element_get_cite ::         JSRef HTMLQuoteElement -> IO JSString
src/GHCJS/DOM/HTMLScriptElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLScriptElement        (ghcjs_dom_html_script_element_set_text, htmlScriptElementSetText,@@ -44,7 +44,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"] = $2;"         ghcjs_dom_html_script_element_set_text ::         JSRef HTMLScriptElement -> JSString -> IO ()@@ -62,7 +62,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_script_element_get_text ::         JSRef HTMLScriptElement -> IO JSString@@ -81,7 +81,7 @@          (unHTMLScriptElement (toHTMLScriptElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         ghcjs_dom_html_script_element_set_html_for ::         JSRef HTMLScriptElement -> JSString -> IO ()@@ -99,7 +99,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"htmlFor\"]"         ghcjs_dom_html_script_element_get_html_for ::         JSRef HTMLScriptElement -> IO JSString@@ -118,7 +118,7 @@          (unHTMLScriptElement (toHTMLScriptElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"event\"] = $2;"         ghcjs_dom_html_script_element_set_event ::         JSRef HTMLScriptElement -> JSString -> IO ()@@ -136,7 +136,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"event\"]"         ghcjs_dom_html_script_element_get_event ::         JSRef HTMLScriptElement -> IO JSString@@ -155,7 +155,7 @@          (unHTMLScriptElement (toHTMLScriptElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"] = $2;"         ghcjs_dom_html_script_element_set_charset ::         JSRef HTMLScriptElement -> JSString -> IO ()@@ -173,7 +173,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charset\"]"         ghcjs_dom_html_script_element_get_charset ::         JSRef HTMLScriptElement -> IO JSString@@ -192,7 +192,7 @@          (unHTMLScriptElement (toHTMLScriptElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"async\"] = $2;"         ghcjs_dom_html_script_element_set_async ::         JSRef HTMLScriptElement -> Bool -> IO ()@@ -210,7 +210,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)"         ghcjs_dom_html_script_element_get_async ::         JSRef HTMLScriptElement -> IO Bool@@ -227,7 +227,7 @@       (unHTMLScriptElement (toHTMLScriptElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"defer\"] = $2;"         ghcjs_dom_html_script_element_set_defer ::         JSRef HTMLScriptElement -> Bool -> IO ()@@ -245,7 +245,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)"         ghcjs_dom_html_script_element_get_defer ::         JSRef HTMLScriptElement -> IO Bool@@ -262,7 +262,7 @@       (unHTMLScriptElement (toHTMLScriptElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_script_element_set_src ::         JSRef HTMLScriptElement -> JSString -> IO ()@@ -280,7 +280,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_script_element_get_src ::         JSRef HTMLScriptElement -> IO JSString@@ -299,7 +299,7 @@          (unHTMLScriptElement (toHTMLScriptElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"         ghcjs_dom_html_script_element_set_cross_origin ::         JSRef HTMLScriptElement -> JSString -> IO ()@@ -317,7 +317,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"crossOrigin\"]"         ghcjs_dom_html_script_element_get_cross_origin ::         JSRef HTMLScriptElement -> IO JSString@@ -336,7 +336,7 @@          (unHTMLScriptElement (toHTMLScriptElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nonce\"] = $2;"         ghcjs_dom_html_script_element_set_nonce ::         JSRef HTMLScriptElement -> JSString -> IO ()@@ -354,7 +354,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nonce\"]"         ghcjs_dom_html_script_element_get_nonce ::         JSRef HTMLScriptElement -> IO JSString
src/GHCJS/DOM/HTMLSelectElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLSelectElement        (ghcjs_dom_html_select_element_item, htmlSelectElementItem,@@ -72,7 +72,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_html_select_element_item ::         JSRef HTMLSelectElement -> Word -> IO (JSRef Node)@@ -91,7 +91,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_html_select_element_named_item ::         JSRef HTMLSelectElement -> JSString -> IO (JSRef Node)@@ -111,7 +111,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"add\"]($2, $3)"         ghcjs_dom_html_select_element_add ::         JSRef HTMLSelectElement ->@@ -134,7 +134,7 @@       (maybe jsNull (unHTMLElement . toHTMLElement) before)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"remove\"]($2)"         ghcjs_dom_html_select_element_remove ::         JSRef HTMLSelectElement -> Int -> IO ()@@ -152,7 +152,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_select_element_check_validity ::@@ -170,7 +170,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_select_element_set_custom_validity ::         JSRef HTMLSelectElement -> JSString -> IO ()@@ -189,7 +189,7 @@       (toJSString error)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_select_element_set_autofocus ::         JSRef HTMLSelectElement -> Bool -> IO ()@@ -207,7 +207,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_autofocus ::         JSRef HTMLSelectElement -> IO Bool@@ -224,7 +224,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_select_element_set_disabled ::         JSRef HTMLSelectElement -> Bool -> IO ()@@ -242,7 +242,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_disabled ::         JSRef HTMLSelectElement -> IO Bool@@ -259,7 +259,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_select_element_get_form ::         JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement)@@ -277,7 +277,7 @@          (unHTMLSelectElement (toHTMLSelectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"multiple\"] = $2;"         ghcjs_dom_html_select_element_set_multiple ::         JSRef HTMLSelectElement -> Bool -> IO ()@@ -295,7 +295,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_multiple ::         JSRef HTMLSelectElement -> IO Bool@@ -312,7 +312,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_select_element_set_name ::         JSRef HTMLSelectElement -> JSString -> IO ()@@ -330,7 +330,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_select_element_get_name ::         JSRef HTMLSelectElement -> IO JSString@@ -349,7 +349,7 @@          (unHTMLSelectElement (toHTMLSelectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"required\"] = $2;"         ghcjs_dom_html_select_element_set_required ::         JSRef HTMLSelectElement -> Bool -> IO ()@@ -367,7 +367,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_required ::         JSRef HTMLSelectElement -> IO Bool@@ -384,7 +384,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_html_select_element_set_size ::         JSRef HTMLSelectElement -> Int -> IO ()@@ -402,7 +402,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_html_select_element_get_size ::         JSRef HTMLSelectElement -> IO Int@@ -419,7 +419,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"options\"]"         ghcjs_dom_html_select_element_get_options ::         JSRef HTMLSelectElement -> IO (JSRef HTMLOptionsCollection)@@ -439,7 +439,7 @@          (unHTMLSelectElement (toHTMLSelectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"] = $2;"         ghcjs_dom_html_select_element_set_length ::         JSRef HTMLSelectElement -> Word -> IO ()@@ -457,7 +457,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_html_select_element_get_length ::         JSRef HTMLSelectElement -> IO Word@@ -474,7 +474,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selectedOptions\"]"         ghcjs_dom_html_select_element_get_selected_options ::         JSRef HTMLSelectElement -> IO (JSRef HTMLCollection)@@ -493,7 +493,7 @@          (unHTMLSelectElement (toHTMLSelectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"         ghcjs_dom_html_select_element_set_selected_index ::         JSRef HTMLSelectElement -> Int -> IO ()@@ -511,7 +511,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"selectedIndex\"]"         ghcjs_dom_html_select_element_get_selected_index ::         JSRef HTMLSelectElement -> IO Int@@ -528,7 +528,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_select_element_set_value ::         JSRef HTMLSelectElement -> JSString -> IO ()@@ -546,7 +546,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_select_element_get_value ::         JSRef HTMLSelectElement -> IO JSString@@ -565,7 +565,7 @@          (unHTMLSelectElement (toHTMLSelectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_will_validate ::         JSRef HTMLSelectElement -> IO Bool@@ -582,7 +582,7 @@       (unHTMLSelectElement (toHTMLSelectElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_select_element_get_validity ::         JSRef HTMLSelectElement -> IO (JSRef ValidityState)@@ -600,7 +600,7 @@          (unHTMLSelectElement (toHTMLSelectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_select_element_get_validation_message ::         JSRef HTMLSelectElement -> IO JSString@@ -619,7 +619,7 @@          (unHTMLSelectElement (toHTMLSelectElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_select_element_get_labels ::         JSRef HTMLSelectElement -> IO (JSRef NodeList)
src/GHCJS/DOM/HTMLStyleElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLStyleElement        (ghcjs_dom_html_style_element_set_disabled,@@ -29,7 +29,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_style_element_set_disabled ::         JSRef HTMLStyleElement -> Bool -> IO ()@@ -47,7 +47,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_style_element_get_disabled ::         JSRef HTMLStyleElement -> IO Bool@@ -64,7 +64,7 @@       (unHTMLStyleElement (toHTMLStyleElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scoped\"] = $2;"         ghcjs_dom_html_style_element_set_scoped ::         JSRef HTMLStyleElement -> Bool -> IO ()@@ -82,7 +82,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"scoped\"] ? 1 : 0)"         ghcjs_dom_html_style_element_get_scoped ::         JSRef HTMLStyleElement -> IO Bool@@ -99,7 +99,7 @@       (unHTMLStyleElement (toHTMLStyleElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"media\"] = $2;"         ghcjs_dom_html_style_element_set_media ::         JSRef HTMLStyleElement -> JSString -> IO ()@@ -117,7 +117,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_html_style_element_get_media ::         JSRef HTMLStyleElement -> IO JSString@@ -135,7 +135,7 @@          (unHTMLStyleElement (toHTMLStyleElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sheet\"]"         ghcjs_dom_html_style_element_get_sheet ::         JSRef HTMLStyleElement -> IO (JSRef StyleSheet)
src/GHCJS/DOM/HTMLTableCaptionElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTableCaptionElement        (ghcjs_dom_html_table_caption_element_set_align,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_caption_element_set_align ::         JSRef HTMLTableCaptionElement -> JSString -> IO ()@@ -43,7 +43,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_caption_element_get_align ::         JSRef HTMLTableCaptionElement -> IO JSString
src/GHCJS/DOM/HTMLTableCellElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTableCellElement        (ghcjs_dom_html_table_cell_element_get_cell_index,@@ -78,7 +78,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cellIndex\"]"         ghcjs_dom_html_table_cell_element_get_cell_index ::         JSRef HTMLTableCellElement -> IO Int@@ -95,7 +95,7 @@       (unHTMLTableCellElement (toHTMLTableCellElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"abbr\"] = $2;"         ghcjs_dom_html_table_cell_element_set_abbr ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -114,7 +114,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"abbr\"]"         ghcjs_dom_html_table_cell_element_get_abbr ::         JSRef HTMLTableCellElement -> IO JSString@@ -133,7 +133,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_cell_element_set_align ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -152,7 +152,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_cell_element_get_align ::         JSRef HTMLTableCellElement -> IO JSString@@ -171,7 +171,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"axis\"] = $2;"         ghcjs_dom_html_table_cell_element_set_axis ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -190,7 +190,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"axis\"]"         ghcjs_dom_html_table_cell_element_get_axis ::         JSRef HTMLTableCellElement -> IO JSString@@ -209,7 +209,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_table_cell_element_set_bg_color ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -228,7 +228,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_table_cell_element_get_bg_color ::         JSRef HTMLTableCellElement -> IO JSString@@ -247,7 +247,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_cell_element_set_ch ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -266,7 +266,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_cell_element_get_ch ::         JSRef HTMLTableCellElement -> IO JSString@@ -285,7 +285,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_cell_element_set_ch_off ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -304,7 +304,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_cell_element_get_ch_off ::         JSRef HTMLTableCellElement -> IO JSString@@ -323,7 +323,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"colSpan\"] = $2;"         ghcjs_dom_html_table_cell_element_set_col_span ::         JSRef HTMLTableCellElement -> Int -> IO ()@@ -341,7 +341,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"colSpan\"]"         ghcjs_dom_html_table_cell_element_get_col_span ::         JSRef HTMLTableCellElement -> IO Int@@ -358,7 +358,7 @@       (unHTMLTableCellElement (toHTMLTableCellElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"headers\"] = $2;"         ghcjs_dom_html_table_cell_element_set_headers ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -377,7 +377,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"headers\"]"         ghcjs_dom_html_table_cell_element_get_headers ::         JSRef HTMLTableCellElement -> IO JSString@@ -396,7 +396,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_table_cell_element_set_height ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -415,7 +415,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_table_cell_element_get_height ::         JSRef HTMLTableCellElement -> IO JSString@@ -434,7 +434,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"noWrap\"] = $2;"         ghcjs_dom_html_table_cell_element_set_no_wrap ::         JSRef HTMLTableCellElement -> Bool -> IO ()@@ -452,7 +452,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)"         ghcjs_dom_html_table_cell_element_get_no_wrap ::         JSRef HTMLTableCellElement -> IO Bool@@ -469,7 +469,7 @@       (unHTMLTableCellElement (toHTMLTableCellElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"         ghcjs_dom_html_table_cell_element_set_row_span ::         JSRef HTMLTableCellElement -> Int -> IO ()@@ -487,7 +487,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rowSpan\"]"         ghcjs_dom_html_table_cell_element_get_row_span ::         JSRef HTMLTableCellElement -> IO Int@@ -504,7 +504,7 @@       (unHTMLTableCellElement (toHTMLTableCellElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scope\"] = $2;"         ghcjs_dom_html_table_cell_element_set_scope ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -523,7 +523,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scope\"]"         ghcjs_dom_html_table_cell_element_get_scope ::         JSRef HTMLTableCellElement -> IO JSString@@ -542,7 +542,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_cell_element_set_v_align ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -561,7 +561,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_cell_element_get_v_align ::         JSRef HTMLTableCellElement -> IO JSString@@ -580,7 +580,7 @@          (unHTMLTableCellElement (toHTMLTableCellElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_table_cell_element_set_width ::         JSRef HTMLTableCellElement -> JSString -> IO ()@@ -599,7 +599,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_table_cell_element_get_width ::         JSRef HTMLTableCellElement -> IO JSString
src/GHCJS/DOM/HTMLTableColElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTableColElement        (ghcjs_dom_html_table_col_element_set_align,@@ -42,7 +42,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_col_element_set_align ::         JSRef HTMLTableColElement -> JSString -> IO ()@@ -61,7 +61,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_col_element_get_align ::         JSRef HTMLTableColElement -> IO JSString@@ -80,7 +80,7 @@          (unHTMLTableColElement (toHTMLTableColElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_col_element_set_ch ::         JSRef HTMLTableColElement -> JSString -> IO ()@@ -99,7 +99,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_col_element_get_ch ::         JSRef HTMLTableColElement -> IO JSString@@ -118,7 +118,7 @@          (unHTMLTableColElement (toHTMLTableColElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_col_element_set_ch_off ::         JSRef HTMLTableColElement -> JSString -> IO ()@@ -137,7 +137,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_col_element_get_ch_off ::         JSRef HTMLTableColElement -> IO JSString@@ -156,7 +156,7 @@          (unHTMLTableColElement (toHTMLTableColElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"span\"] = $2;"         ghcjs_dom_html_table_col_element_set_span ::         JSRef HTMLTableColElement -> Int -> IO ()@@ -174,7 +174,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"span\"]"         ghcjs_dom_html_table_col_element_get_span ::         JSRef HTMLTableColElement -> IO Int@@ -191,7 +191,7 @@       (unHTMLTableColElement (toHTMLTableColElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_col_element_set_v_align ::         JSRef HTMLTableColElement -> JSString -> IO ()@@ -210,7 +210,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_col_element_get_v_align ::         JSRef HTMLTableColElement -> IO JSString@@ -229,7 +229,7 @@          (unHTMLTableColElement (toHTMLTableColElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_table_col_element_set_width ::         JSRef HTMLTableColElement -> JSString -> IO ()@@ -248,7 +248,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_table_col_element_get_width ::         JSRef HTMLTableColElement -> IO JSString
src/GHCJS/DOM/HTMLTableElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTableElement        (ghcjs_dom_html_table_element_create_t_head,@@ -72,7 +72,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createTHead\"]()"         ghcjs_dom_html_table_element_create_t_head ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)@@ -90,7 +90,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteTHead\"]()"         ghcjs_dom_html_table_element_delete_t_head ::         JSRef HTMLTableElement -> IO ()@@ -107,7 +107,7 @@       (unHTMLTableElement (toHTMLTableElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createTFoot\"]()"         ghcjs_dom_html_table_element_create_t_foot ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)@@ -125,7 +125,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteTFoot\"]()"         ghcjs_dom_html_table_element_delete_t_foot ::         JSRef HTMLTableElement -> IO ()@@ -142,7 +142,7 @@       (unHTMLTableElement (toHTMLTableElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createTBody\"]()"         ghcjs_dom_html_table_element_create_t_body ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)@@ -160,7 +160,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"createCaption\"]()"         ghcjs_dom_html_table_element_create_caption ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)@@ -178,7 +178,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteCaption\"]()"         ghcjs_dom_html_table_element_delete_caption ::         JSRef HTMLTableElement -> IO ()@@ -195,7 +195,7 @@       (unHTMLTableElement (toHTMLTableElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"insertRow\"]($2)"         ghcjs_dom_html_table_element_insert_row ::         JSRef HTMLTableElement -> Int -> IO (JSRef HTMLElement)@@ -214,7 +214,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteRow\"]($2)"         ghcjs_dom_html_table_element_delete_row ::         JSRef HTMLTableElement -> Int -> IO ()@@ -232,7 +232,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"caption\"] = $2;"         ghcjs_dom_html_table_element_set_caption ::         JSRef HTMLTableElement -> JSRef HTMLTableCaptionElement -> IO ()@@ -254,7 +254,7 @@          val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"caption\"]"         ghcjs_dom_html_table_element_get_caption ::         JSRef HTMLTableElement -> IO (JSRef HTMLTableCaptionElement)@@ -274,7 +274,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tHead\"] = $2;"         ghcjs_dom_html_table_element_set_t_head ::         JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()@@ -296,7 +296,7 @@          val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tHead\"]"         ghcjs_dom_html_table_element_get_t_head ::         JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)@@ -316,7 +316,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tFoot\"] = $2;"         ghcjs_dom_html_table_element_set_t_foot ::         JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()@@ -338,7 +338,7 @@          val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tFoot\"]"         ghcjs_dom_html_table_element_get_t_foot ::         JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)@@ -358,7 +358,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_table_element_get_rows ::         JSRef HTMLTableElement -> IO (JSRef HTMLCollection)@@ -376,7 +376,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"tBodies\"]"         ghcjs_dom_html_table_element_get_t_bodies ::         JSRef HTMLTableElement -> IO (JSRef HTMLCollection)@@ -394,7 +394,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_element_set_align ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -412,7 +412,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_element_get_align ::         JSRef HTMLTableElement -> IO JSString@@ -430,7 +430,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_table_element_set_bg_color ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -448,7 +448,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_table_element_get_bg_color ::         JSRef HTMLTableElement -> IO JSString@@ -466,7 +466,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"border\"] = $2;"         ghcjs_dom_html_table_element_set_border ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -484,7 +484,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"border\"]"         ghcjs_dom_html_table_element_get_border ::         JSRef HTMLTableElement -> IO JSString@@ -502,7 +502,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"         ghcjs_dom_html_table_element_set_cell_padding ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -520,7 +520,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cellPadding\"]"         ghcjs_dom_html_table_element_get_cell_padding ::         JSRef HTMLTableElement -> IO JSString@@ -538,7 +538,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"         ghcjs_dom_html_table_element_set_cell_spacing ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -556,7 +556,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cellSpacing\"]"         ghcjs_dom_html_table_element_get_cell_spacing ::         JSRef HTMLTableElement -> IO JSString@@ -574,7 +574,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frame\"] = $2;"         ghcjs_dom_html_table_element_set_frame ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -592,7 +592,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"frame\"]"         ghcjs_dom_html_table_element_get_frame ::         JSRef HTMLTableElement -> IO JSString@@ -610,7 +610,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rules\"] = $2;"         ghcjs_dom_html_table_element_set_rules ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -628,7 +628,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rules\"]"         ghcjs_dom_html_table_element_get_rules ::         JSRef HTMLTableElement -> IO JSString@@ -646,7 +646,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"summary\"] = $2;"         ghcjs_dom_html_table_element_set_summary ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -664,7 +664,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"summary\"]"         ghcjs_dom_html_table_element_get_summary ::         JSRef HTMLTableElement -> IO JSString@@ -682,7 +682,7 @@          (unHTMLTableElement (toHTMLTableElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_table_element_set_width ::         JSRef HTMLTableElement -> JSString -> IO ()@@ -700,7 +700,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_table_element_get_width ::         JSRef HTMLTableElement -> IO JSString
src/GHCJS/DOM/HTMLTableRowElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTableRowElement        (ghcjs_dom_html_table_row_element_insert_cell,@@ -48,7 +48,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"insertCell\"]($2)"         ghcjs_dom_html_table_row_element_insert_cell ::         JSRef HTMLTableRowElement -> Int -> IO (JSRef HTMLElement)@@ -69,7 +69,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteCell\"]($2)"         ghcjs_dom_html_table_row_element_delete_cell ::         JSRef HTMLTableRowElement -> Int -> IO ()@@ -87,7 +87,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rowIndex\"]"         ghcjs_dom_html_table_row_element_get_row_index ::         JSRef HTMLTableRowElement -> IO Int@@ -104,7 +104,7 @@       (unHTMLTableRowElement (toHTMLTableRowElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sectionRowIndex\"]"         ghcjs_dom_html_table_row_element_get_section_row_index ::         JSRef HTMLTableRowElement -> IO Int@@ -121,7 +121,7 @@       (unHTMLTableRowElement (toHTMLTableRowElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cells\"]"         ghcjs_dom_html_table_row_element_get_cells ::         JSRef HTMLTableRowElement -> IO (JSRef HTMLCollection)@@ -139,7 +139,7 @@          (unHTMLTableRowElement (toHTMLTableRowElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_row_element_set_align ::         JSRef HTMLTableRowElement -> JSString -> IO ()@@ -158,7 +158,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_row_element_get_align ::         JSRef HTMLTableRowElement -> IO JSString@@ -177,7 +177,7 @@          (unHTMLTableRowElement (toHTMLTableRowElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_table_row_element_set_bg_color ::         JSRef HTMLTableRowElement -> JSString -> IO ()@@ -196,7 +196,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_table_row_element_get_bg_color ::         JSRef HTMLTableRowElement -> IO JSString@@ -215,7 +215,7 @@          (unHTMLTableRowElement (toHTMLTableRowElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_row_element_set_ch ::         JSRef HTMLTableRowElement -> JSString -> IO ()@@ -234,7 +234,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_row_element_get_ch ::         JSRef HTMLTableRowElement -> IO JSString@@ -253,7 +253,7 @@          (unHTMLTableRowElement (toHTMLTableRowElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_row_element_set_ch_off ::         JSRef HTMLTableRowElement -> JSString -> IO ()@@ -272,7 +272,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_row_element_get_ch_off ::         JSRef HTMLTableRowElement -> IO JSString@@ -291,7 +291,7 @@          (unHTMLTableRowElement (toHTMLTableRowElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_row_element_set_v_align ::         JSRef HTMLTableRowElement -> JSString -> IO ()@@ -310,7 +310,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_row_element_get_v_align ::         JSRef HTMLTableRowElement -> IO JSString
src/GHCJS/DOM/HTMLTableSectionElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTableSectionElement        (ghcjs_dom_html_table_section_element_insert_row,@@ -42,7 +42,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"insertRow\"]($2)"         ghcjs_dom_html_table_section_element_insert_row ::         JSRef HTMLTableSectionElement -> Int -> IO (JSRef HTMLElement)@@ -63,7 +63,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteRow\"]($2)"         ghcjs_dom_html_table_section_element_delete_row ::         JSRef HTMLTableSectionElement -> Int -> IO ()@@ -81,7 +81,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_section_element_set_align ::         JSRef HTMLTableSectionElement -> JSString -> IO ()@@ -100,7 +100,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_section_element_get_align ::         JSRef HTMLTableSectionElement -> IO JSString@@ -119,7 +119,7 @@          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_section_element_set_ch ::         JSRef HTMLTableSectionElement -> JSString -> IO ()@@ -138,7 +138,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_section_element_get_ch ::         JSRef HTMLTableSectionElement -> IO JSString@@ -157,7 +157,7 @@          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_section_element_set_ch_off ::         JSRef HTMLTableSectionElement -> JSString -> IO ()@@ -176,7 +176,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_section_element_get_ch_off ::         JSRef HTMLTableSectionElement -> IO JSString@@ -195,7 +195,7 @@          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_section_element_set_v_align ::         JSRef HTMLTableSectionElement -> JSString -> IO ()@@ -215,7 +215,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_section_element_get_v_align ::         JSRef HTMLTableSectionElement -> IO JSString@@ -234,7 +234,7 @@          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_table_section_element_get_rows ::         JSRef HTMLTableSectionElement -> IO (JSRef HTMLCollection)
src/GHCJS/DOM/HTMLTextAreaElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTextAreaElement        (ghcjs_dom_html_text_area_element_check_validity,@@ -105,17 +105,17 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_text_area_element_check_validity ::         JSRef HTMLTextAreaElement -> IO Bool-#else +#else ghcjs_dom_html_text_area_element_check_validity ::                                                   JSRef HTMLTextAreaElement -> IO Bool ghcjs_dom_html_text_area_element_check_validity = undefined #endif- + htmlTextAreaElementCheckValidity ::                                  (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementCheckValidity self@@ -123,17 +123,17 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_text_area_element_set_custom_validity ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_custom_validity ::                                                        JSRef HTMLTextAreaElement ->                                                          JSString -> IO () ghcjs_dom_html_text_area_element_set_custom_validity = undefined #endif- + htmlTextAreaElementSetCustomValidity ::                                      (IsHTMLTextAreaElement self, ToJSString error) =>                                        self -> error -> IO ()@@ -143,16 +143,16 @@       (toJSString error)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"select\"]()"         ghcjs_dom_html_text_area_element_select ::         JSRef HTMLTextAreaElement -> IO ()-#else +#else ghcjs_dom_html_text_area_element_select ::                                           JSRef HTMLTextAreaElement -> IO () ghcjs_dom_html_text_area_element_select = undefined #endif- + htmlTextAreaElementSelect ::                           (IsHTMLTextAreaElement self) => self -> IO () htmlTextAreaElementSelect self@@ -160,38 +160,19 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ -foreign import javascript unsafe "$1[\"setRangeText\"]($2)"-        ghcjs_dom_html_text_area_element_set_range_text ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()-#else -ghcjs_dom_html_text_area_element_set_range_text ::-                                                  JSRef HTMLTextAreaElement -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_range_text = undefined-#endif- -htmlTextAreaElementSetRangeText ::-                                (IsHTMLTextAreaElement self, ToJSString replacement) =>-                                  self -> replacement -> IO ()-htmlTextAreaElementSetRangeText self replacement-  = ghcjs_dom_html_text_area_element_set_range_text-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))-      (toJSString replacement)---#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "$1[\"setRangeText\"]($2, $3, $4,\n$5)"         ghcjs_dom_html_text_area_element_set_range_text ::         JSRef HTMLTextAreaElement ->           JSString -> Word -> Word -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_range_text ::                                                   JSRef HTMLTextAreaElement ->                                                     JSString -> Word -> Word -> JSString -> IO () ghcjs_dom_html_text_area_element_set_range_text = undefined #endif- + htmlTextAreaElementSetRangeText ::                                 (IsHTMLTextAreaElement self, ToJSString replacement,                                  ToJSString selectionMode) =>@@ -206,18 +187,18 @@       (toJSString selectionMode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "$1[\"setSelectionRange\"]($2, $3,\n$4)"         ghcjs_dom_html_text_area_element_set_selection_range ::         JSRef HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_selection_range ::                                                        JSRef HTMLTextAreaElement ->                                                          Int -> Int -> JSString -> IO () ghcjs_dom_html_text_area_element_set_selection_range = undefined #endif- + htmlTextAreaElementSetSelectionRange ::                                      (IsHTMLTextAreaElement self, ToJSString direction) =>                                        self -> Int -> Int -> direction -> IO ()@@ -229,16 +210,16 @@       (toJSString direction)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_text_area_element_set_autofocus ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_autofocus ::                                                  JSRef HTMLTextAreaElement -> Bool -> IO () ghcjs_dom_html_text_area_element_set_autofocus = undefined #endif- + htmlTextAreaElementSetAutofocus ::                                 (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetAutofocus self val@@ -247,16 +228,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_autofocus ::         JSRef HTMLTextAreaElement -> IO Bool-#else +#else ghcjs_dom_html_text_area_element_get_autofocus ::                                                  JSRef HTMLTextAreaElement -> IO Bool ghcjs_dom_html_text_area_element_get_autofocus = undefined #endif- + htmlTextAreaElementGetAutofocus ::                                 (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetAutofocus self@@ -264,16 +245,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"cols\"] = $2;"         ghcjs_dom_html_text_area_element_set_cols ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_cols ::                                             JSRef HTMLTextAreaElement -> Int -> IO () ghcjs_dom_html_text_area_element_set_cols = undefined #endif- + htmlTextAreaElementSetCols ::                            (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetCols self val@@ -282,16 +263,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"cols\"]"         ghcjs_dom_html_text_area_element_get_cols ::         JSRef HTMLTextAreaElement -> IO Int-#else +#else ghcjs_dom_html_text_area_element_get_cols ::                                             JSRef HTMLTextAreaElement -> IO Int ghcjs_dom_html_text_area_element_get_cols = undefined #endif- + htmlTextAreaElementGetCols ::                            (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetCols self@@ -299,16 +280,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"dirName\"] = $2;"         ghcjs_dom_html_text_area_element_set_dir_name ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_dir_name ::                                                 JSRef HTMLTextAreaElement -> JSString -> IO () ghcjs_dom_html_text_area_element_set_dir_name = undefined #endif- + htmlTextAreaElementSetDirName ::                               (IsHTMLTextAreaElement self, ToJSString val) =>                                 self -> val -> IO ()@@ -318,16 +299,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"dirName\"]"         ghcjs_dom_html_text_area_element_get_dir_name ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_dir_name ::                                                 JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_dir_name = undefined #endif- + htmlTextAreaElementGetDirName ::                               (IsHTMLTextAreaElement self, FromJSString result) =>                                 self -> IO result@@ -337,16 +318,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_text_area_element_set_disabled ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_disabled ::                                                 JSRef HTMLTextAreaElement -> Bool -> IO () ghcjs_dom_html_text_area_element_set_disabled = undefined #endif- + htmlTextAreaElementSetDisabled ::                                (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetDisabled self val@@ -355,16 +336,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_disabled ::         JSRef HTMLTextAreaElement -> IO Bool-#else +#else ghcjs_dom_html_text_area_element_get_disabled ::                                                 JSRef HTMLTextAreaElement -> IO Bool ghcjs_dom_html_text_area_element_get_disabled = undefined #endif- + htmlTextAreaElementGetDisabled ::                                (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetDisabled self@@ -372,16 +353,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_text_area_element_get_form ::         JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)-#else +#else ghcjs_dom_html_text_area_element_get_form ::                                             JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement) ghcjs_dom_html_text_area_element_get_form = undefined #endif- + htmlTextAreaElementGetForm ::                            (IsHTMLTextAreaElement self) => self -> IO (Maybe HTMLFormElement) htmlTextAreaElementGetForm self@@ -390,16 +371,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"maxLength\"] = $2;"         ghcjs_dom_html_text_area_element_set_max_length ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_max_length ::                                                   JSRef HTMLTextAreaElement -> Int -> IO () ghcjs_dom_html_text_area_element_set_max_length = undefined #endif- + htmlTextAreaElementSetMaxLength ::                                 (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetMaxLength self val@@ -408,16 +389,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"maxLength\"]"         ghcjs_dom_html_text_area_element_get_max_length ::         JSRef HTMLTextAreaElement -> IO Int-#else +#else ghcjs_dom_html_text_area_element_get_max_length ::                                                   JSRef HTMLTextAreaElement -> IO Int ghcjs_dom_html_text_area_element_get_max_length = undefined #endif- + htmlTextAreaElementGetMaxLength ::                                 (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetMaxLength self@@ -425,16 +406,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_text_area_element_set_name ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_name ::                                             JSRef HTMLTextAreaElement -> JSString -> IO () ghcjs_dom_html_text_area_element_set_name = undefined #endif- + htmlTextAreaElementSetName ::                            (IsHTMLTextAreaElement self, ToJSString val) =>                              self -> val -> IO ()@@ -444,16 +425,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_text_area_element_get_name ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_name ::                                             JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_name = undefined #endif- + htmlTextAreaElementGetName ::                            (IsHTMLTextAreaElement self, FromJSString result) =>                              self -> IO result@@ -463,16 +444,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"placeholder\"] = $2;"         ghcjs_dom_html_text_area_element_set_placeholder ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_placeholder ::                                                    JSRef HTMLTextAreaElement -> JSString -> IO () ghcjs_dom_html_text_area_element_set_placeholder = undefined #endif- + htmlTextAreaElementSetPlaceholder ::                                   (IsHTMLTextAreaElement self, ToJSString val) =>                                     self -> val -> IO ()@@ -482,16 +463,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"placeholder\"]"         ghcjs_dom_html_text_area_element_get_placeholder ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_placeholder ::                                                    JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_placeholder = undefined #endif- + htmlTextAreaElementGetPlaceholder ::                                   (IsHTMLTextAreaElement self, FromJSString result) =>                                     self -> IO result@@ -501,16 +482,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"readOnly\"] = $2;"         ghcjs_dom_html_text_area_element_set_read_only ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_read_only ::                                                  JSRef HTMLTextAreaElement -> Bool -> IO () ghcjs_dom_html_text_area_element_set_read_only = undefined #endif- + htmlTextAreaElementSetReadOnly ::                                (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetReadOnly self val@@ -519,16 +500,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_read_only ::         JSRef HTMLTextAreaElement -> IO Bool-#else +#else ghcjs_dom_html_text_area_element_get_read_only ::                                                  JSRef HTMLTextAreaElement -> IO Bool ghcjs_dom_html_text_area_element_get_read_only = undefined #endif- + htmlTextAreaElementGetReadOnly ::                                (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetReadOnly self@@ -536,16 +517,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"required\"] = $2;"         ghcjs_dom_html_text_area_element_set_required ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_required ::                                                 JSRef HTMLTextAreaElement -> Bool -> IO () ghcjs_dom_html_text_area_element_set_required = undefined #endif- + htmlTextAreaElementSetRequired ::                                (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetRequired self val@@ -554,16 +535,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_required ::         JSRef HTMLTextAreaElement -> IO Bool-#else +#else ghcjs_dom_html_text_area_element_get_required ::                                                 JSRef HTMLTextAreaElement -> IO Bool ghcjs_dom_html_text_area_element_get_required = undefined #endif- + htmlTextAreaElementGetRequired ::                                (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetRequired self@@ -571,16 +552,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"rows\"] = $2;"         ghcjs_dom_html_text_area_element_set_rows ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_rows ::                                             JSRef HTMLTextAreaElement -> Int -> IO () ghcjs_dom_html_text_area_element_set_rows = undefined #endif- + htmlTextAreaElementSetRows ::                            (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetRows self val@@ -589,16 +570,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_text_area_element_get_rows ::         JSRef HTMLTextAreaElement -> IO Int-#else +#else ghcjs_dom_html_text_area_element_get_rows ::                                             JSRef HTMLTextAreaElement -> IO Int ghcjs_dom_html_text_area_element_get_rows = undefined #endif- + htmlTextAreaElementGetRows ::                            (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetRows self@@ -606,16 +587,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"wrap\"] = $2;"         ghcjs_dom_html_text_area_element_set_wrap ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_wrap ::                                             JSRef HTMLTextAreaElement -> JSString -> IO () ghcjs_dom_html_text_area_element_set_wrap = undefined #endif- + htmlTextAreaElementSetWrap ::                            (IsHTMLTextAreaElement self, ToJSString val) =>                              self -> val -> IO ()@@ -625,16 +606,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"wrap\"]"         ghcjs_dom_html_text_area_element_get_wrap ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_wrap ::                                             JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_wrap = undefined #endif- + htmlTextAreaElementGetWrap ::                            (IsHTMLTextAreaElement self, FromJSString result) =>                              self -> IO result@@ -644,16 +625,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"         ghcjs_dom_html_text_area_element_set_default_value ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_default_value ::                                                      JSRef HTMLTextAreaElement -> JSString -> IO () ghcjs_dom_html_text_area_element_set_default_value = undefined #endif- + htmlTextAreaElementSetDefaultValue ::                                    (IsHTMLTextAreaElement self, ToJSString val) =>                                      self -> val -> IO ()@@ -663,16 +644,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"defaultValue\"]"         ghcjs_dom_html_text_area_element_get_default_value ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_default_value ::                                                      JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_default_value = undefined #endif- + htmlTextAreaElementGetDefaultValue ::                                    (IsHTMLTextAreaElement self, FromJSString result) =>                                      self -> IO result@@ -682,16 +663,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_text_area_element_set_value ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_value ::                                              JSRef HTMLTextAreaElement -> JSString -> IO () ghcjs_dom_html_text_area_element_set_value = undefined #endif- + htmlTextAreaElementSetValue ::                             (IsHTMLTextAreaElement self, ToJSString val) =>                               self -> val -> IO ()@@ -701,16 +682,16 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_text_area_element_get_value ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_value ::                                              JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_value = undefined #endif- + htmlTextAreaElementGetValue ::                             (IsHTMLTextAreaElement self, FromJSString result) =>                               self -> IO result@@ -720,16 +701,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"textLength\"]"         ghcjs_dom_html_text_area_element_get_text_length ::         JSRef HTMLTextAreaElement -> IO Word-#else +#else ghcjs_dom_html_text_area_element_get_text_length ::                                                    JSRef HTMLTextAreaElement -> IO Word ghcjs_dom_html_text_area_element_get_text_length = undefined #endif- + htmlTextAreaElementGetTextLength ::                                  (IsHTMLTextAreaElement self) => self -> IO Word htmlTextAreaElementGetTextLength self@@ -737,16 +718,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_will_validate ::         JSRef HTMLTextAreaElement -> IO Bool-#else +#else ghcjs_dom_html_text_area_element_get_will_validate ::                                                      JSRef HTMLTextAreaElement -> IO Bool ghcjs_dom_html_text_area_element_get_will_validate = undefined #endif- + htmlTextAreaElementGetWillValidate ::                                    (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetWillValidate self@@ -754,17 +735,17 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_text_area_element_get_validity ::         JSRef HTMLTextAreaElement -> IO (JSRef ValidityState)-#else +#else ghcjs_dom_html_text_area_element_get_validity ::                                                 JSRef HTMLTextAreaElement ->                                                   IO (JSRef ValidityState) ghcjs_dom_html_text_area_element_get_validity = undefined #endif- + htmlTextAreaElementGetValidity ::                                (IsHTMLTextAreaElement self) => self -> IO (Maybe ValidityState) htmlTextAreaElementGetValidity self@@ -773,16 +754,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_text_area_element_get_validation_message ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_validation_message ::                                                           JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_validation_message = undefined #endif- + htmlTextAreaElementGetValidationMessage ::                                         (IsHTMLTextAreaElement self, FromJSString result) =>                                           self -> IO result@@ -792,16 +773,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_text_area_element_get_labels ::         JSRef HTMLTextAreaElement -> IO (JSRef NodeList)-#else +#else ghcjs_dom_html_text_area_element_get_labels ::                                               JSRef HTMLTextAreaElement -> IO (JSRef NodeList) ghcjs_dom_html_text_area_element_get_labels = undefined #endif- + htmlTextAreaElementGetLabels ::                              (IsHTMLTextAreaElement self) => self -> IO (Maybe NodeList) htmlTextAreaElementGetLabels self@@ -810,16 +791,16 @@          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"         ghcjs_dom_html_text_area_element_set_selection_start ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_selection_start ::                                                        JSRef HTMLTextAreaElement -> Int -> IO () ghcjs_dom_html_text_area_element_set_selection_start = undefined #endif- + htmlTextAreaElementSetSelectionStart ::                                      (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetSelectionStart self val@@ -828,16 +809,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectionStart\"]"         ghcjs_dom_html_text_area_element_get_selection_start ::         JSRef HTMLTextAreaElement -> IO Int-#else +#else ghcjs_dom_html_text_area_element_get_selection_start ::                                                        JSRef HTMLTextAreaElement -> IO Int ghcjs_dom_html_text_area_element_get_selection_start = undefined #endif- + htmlTextAreaElementGetSelectionStart ::                                      (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetSelectionStart self@@ -845,16 +826,16 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"         ghcjs_dom_html_text_area_element_set_selection_end ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_selection_end ::                                                      JSRef HTMLTextAreaElement -> Int -> IO () ghcjs_dom_html_text_area_element_set_selection_end = undefined #endif- + htmlTextAreaElementSetSelectionEnd ::                                    (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetSelectionEnd self val@@ -863,16 +844,16 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectionEnd\"]"         ghcjs_dom_html_text_area_element_get_selection_end ::         JSRef HTMLTextAreaElement -> IO Int-#else +#else ghcjs_dom_html_text_area_element_get_selection_end ::                                                      JSRef HTMLTextAreaElement -> IO Int ghcjs_dom_html_text_area_element_get_selection_end = undefined #endif- + htmlTextAreaElementGetSelectionEnd ::                                    (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetSelectionEnd self@@ -880,18 +861,18 @@       (unHTMLTextAreaElement (toHTMLTextAreaElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"         ghcjs_dom_html_text_area_element_set_selection_direction ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else +#else ghcjs_dom_html_text_area_element_set_selection_direction ::                                                            JSRef HTMLTextAreaElement ->                                                              JSString -> IO () ghcjs_dom_html_text_area_element_set_selection_direction   = undefined #endif- + htmlTextAreaElementSetSelectionDirection ::                                          (IsHTMLTextAreaElement self, ToJSString val) =>                                            self -> val -> IO ()@@ -901,17 +882,17 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectionDirection\"]"         ghcjs_dom_html_text_area_element_get_selection_direction ::         JSRef HTMLTextAreaElement -> IO JSString-#else +#else ghcjs_dom_html_text_area_element_get_selection_direction ::                                                            JSRef HTMLTextAreaElement -> IO JSString ghcjs_dom_html_text_area_element_get_selection_direction   = undefined #endif- + htmlTextAreaElementGetSelectionDirection ::                                          (IsHTMLTextAreaElement self, FromJSString result) =>                                            self -> IO result
src/GHCJS/DOM/HTMLTitleElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTitleElement        (ghcjs_dom_html_title_element_set_text, htmlTitleElementSetText,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"] = $2;"         ghcjs_dom_html_title_element_set_text ::         JSRef HTMLTitleElement -> JSString -> IO ()@@ -40,7 +40,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_title_element_get_text ::         JSRef HTMLTitleElement -> IO JSString
src/GHCJS/DOM/HTMLUListElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLUListElement        (ghcjs_dom_htmlu_list_element_set_compact,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_htmlu_list_element_set_compact ::         JSRef HTMLUListElement -> Bool -> IO ()@@ -41,7 +41,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_htmlu_list_element_get_compact ::         JSRef HTMLUListElement -> IO Bool
src/GHCJS/DOM/HTMLVideoElement.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLVideoElement        (ghcjs_dom_html_video_element_webkit_enter_fullscreen,@@ -46,7 +46,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"         ghcjs_dom_html_video_element_webkit_enter_fullscreen ::         JSRef HTMLVideoElement -> IO ()@@ -63,7 +63,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"         ghcjs_dom_html_video_element_webkit_exit_fullscreen ::         JSRef HTMLVideoElement -> IO ()@@ -80,7 +80,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()"         ghcjs_dom_html_video_element_webkit_enter_full_screen ::         JSRef HTMLVideoElement -> IO ()@@ -97,7 +97,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()"         ghcjs_dom_html_video_element_webkit_exit_full_screen ::         JSRef HTMLVideoElement -> IO ()@@ -114,7 +114,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_video_element_set_width ::         JSRef HTMLVideoElement -> Word -> IO ()@@ -132,7 +132,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_video_element_get_width ::         JSRef HTMLVideoElement -> IO Word@@ -149,7 +149,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_video_element_set_height ::         JSRef HTMLVideoElement -> Word -> IO ()@@ -167,7 +167,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_video_element_get_height ::         JSRef HTMLVideoElement -> IO Word@@ -184,7 +184,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"videoWidth\"]"         ghcjs_dom_html_video_element_get_video_width ::         JSRef HTMLVideoElement -> IO Word@@ -201,7 +201,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"videoHeight\"]"         ghcjs_dom_html_video_element_get_video_height ::         JSRef HTMLVideoElement -> IO Word@@ -218,7 +218,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"poster\"] = $2;"         ghcjs_dom_html_video_element_set_poster ::         JSRef HTMLVideoElement -> JSString -> IO ()@@ -236,7 +236,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"poster\"]"         ghcjs_dom_html_video_element_get_poster ::         JSRef HTMLVideoElement -> IO JSString@@ -254,7 +254,7 @@          (unHTMLVideoElement (toHTMLVideoElement self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"         ghcjs_dom_html_video_element_get_webkit_supports_fullscreen ::@@ -273,7 +273,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"         ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen ::@@ -292,7 +292,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"         ghcjs_dom_html_video_element_get_webkit_decoded_frame_count ::         JSRef HTMLVideoElement -> IO Word@@ -310,7 +310,7 @@       (unHTMLVideoElement (toHTMLVideoElement self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"         ghcjs_dom_html_video_element_get_webkit_dropped_frame_count ::         JSRef HTMLVideoElement -> IO Word
src/GHCJS/DOM/History.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.History        (ghcjs_dom_history_get_length, historyGetLength, History,@@ -20,7 +20,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_history_get_length :: JSRef History -> IO Word #else
src/GHCJS/DOM/KeyboardEvent.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.KeyboardEvent        (ghcjs_dom_keyboard_event_get_modifier_state,@@ -34,7 +34,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"getModifierState\"]($2) ? 1 : 0)"         ghcjs_dom_keyboard_event_get_modifier_state ::@@ -54,7 +54,7 @@       (toJSString keyIdentifierArg)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"         ghcjs_dom_keyboard_event_init_keyboard_event ::@@ -109,7 +109,7 @@ cKEY_LOCATION_NUMPAD = 3  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"keyIdentifier\"]"         ghcjs_dom_keyboard_event_get_key_identifier ::         JSRef KeyboardEvent -> IO JSString@@ -127,7 +127,7 @@          (unKeyboardEvent (toKeyboardEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"keyLocation\"]"         ghcjs_dom_keyboard_event_get_key_location ::         JSRef KeyboardEvent -> IO Word@@ -144,7 +144,7 @@       (unKeyboardEvent (toKeyboardEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_ctrl_key ::         JSRef KeyboardEvent -> IO Bool@@ -161,7 +161,7 @@       (unKeyboardEvent (toKeyboardEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_shift_key ::         JSRef KeyboardEvent -> IO Bool@@ -178,7 +178,7 @@       (unKeyboardEvent (toKeyboardEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_alt_key ::         JSRef KeyboardEvent -> IO Bool@@ -194,7 +194,7 @@       (unKeyboardEvent (toKeyboardEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_meta_key ::         JSRef KeyboardEvent -> IO Bool@@ -211,7 +211,7 @@       (unKeyboardEvent (toKeyboardEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"altGraphKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_alt_graph_key ::         JSRef KeyboardEvent -> IO Bool
src/GHCJS/DOM/Location.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Location        (ghcjs_dom_location_get_origin, locationGetOrigin,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"origin\"]"         ghcjs_dom_location_get_origin :: JSRef Location -> IO JSString #else @@ -37,7 +37,7 @@       (ghcjs_dom_location_get_origin (unLocation (toLocation self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ancestorOrigins\"]"         ghcjs_dom_location_get_ancestor_origins ::         JSRef Location -> IO (JSRef DOMStringList)
src/GHCJS/DOM/MediaError.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.MediaError        (cMEDIA_ERR_ABORTED, cMEDIA_ERR_NETWORK, cMEDIA_ERR_DECODE,@@ -26,7 +26,7 @@ cMEDIA_ERR_SRC_NOT_SUPPORTED = 4  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"code\"]"         ghcjs_dom_media_error_get_code :: JSRef MediaError -> IO Word #else
src/GHCJS/DOM/MediaList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.MediaList        (ghcjs_dom_media_list_item, mediaListItem,@@ -25,7 +25,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_media_list_item :: JSRef MediaList -> Word -> IO JSString #else @@ -41,7 +41,7 @@       (ghcjs_dom_media_list_item (unMediaList (toMediaList self)) index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"deleteMedium\"]($2)"         ghcjs_dom_media_list_delete_medium ::         JSRef MediaList -> JSString -> IO ()@@ -60,7 +60,7 @@       (toJSString oldMedium)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"appendMedium\"]($2)"         ghcjs_dom_media_list_append_medium ::         JSRef MediaList -> JSString -> IO ()@@ -79,7 +79,7 @@       (toJSString newMedium)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"mediaText\"] = $2;"         ghcjs_dom_media_list_set_media_text ::         JSRef MediaList -> JSString -> IO ()@@ -97,7 +97,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"mediaText\"]"         ghcjs_dom_media_list_get_media_text ::         JSRef MediaList -> IO JSString@@ -115,7 +115,7 @@          (unMediaList (toMediaList self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_media_list_get_length :: JSRef MediaList -> IO Word #else
src/GHCJS/DOM/MediaQueryList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.MediaQueryList        (ghcjs_dom_media_query_list_get_media, mediaQueryListGetMedia,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_media_query_list_get_media ::         JSRef MediaQueryList -> IO JSString@@ -40,7 +40,7 @@          (unMediaQueryList (toMediaQueryList self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"matches\"] ? 1 : 0)"         ghcjs_dom_media_query_list_get_matches ::         JSRef MediaQueryList -> IO Bool
src/GHCJS/DOM/MouseEvent.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.MouseEvent        (ghcjs_dom_mouse_event_init_mouse_event, mouseEventInitMouseEvent,@@ -39,7 +39,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)"         ghcjs_dom_mouse_event_init_mouse_event ::@@ -114,7 +114,7 @@       (maybe jsNull (unEventTarget . toEventTarget) relatedTarget)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"screenX\"]"         ghcjs_dom_mouse_event_get_screen_x :: JSRef MouseEvent -> IO Int #else @@ -128,7 +128,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"screenY\"]"         ghcjs_dom_mouse_event_get_screen_y :: JSRef MouseEvent -> IO Int #else @@ -142,7 +142,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientX\"]"         ghcjs_dom_mouse_event_get_client_x :: JSRef MouseEvent -> IO Int #else @@ -156,7 +156,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientY\"]"         ghcjs_dom_mouse_event_get_client_y :: JSRef MouseEvent -> IO Int #else @@ -170,7 +170,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_ctrl_key :: JSRef MouseEvent -> IO Bool #else @@ -184,7 +184,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_shift_key :: JSRef MouseEvent -> IO Bool #else @@ -198,7 +198,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_alt_key :: JSRef MouseEvent -> IO Bool #else @@ -212,7 +212,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_meta_key :: JSRef MouseEvent -> IO Bool #else @@ -226,7 +226,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"button\"]"         ghcjs_dom_mouse_event_get_button :: JSRef MouseEvent -> IO Word #else @@ -240,7 +240,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"relatedTarget\"]"         ghcjs_dom_mouse_event_get_related_target ::         JSRef MouseEvent -> IO (JSRef EventTarget)@@ -258,7 +258,7 @@          (unMouseEvent (toMouseEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitMovementX\"]"         ghcjs_dom_mouse_event_get_webkit_movement_x ::         JSRef MouseEvent -> IO Int@@ -275,7 +275,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"webkitMovementY\"]"         ghcjs_dom_mouse_event_get_webkit_movement_y ::         JSRef MouseEvent -> IO Int@@ -292,7 +292,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"offsetX\"]"         ghcjs_dom_mouse_event_get_offset_x :: JSRef MouseEvent -> IO Int #else @@ -306,7 +306,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"offsetY\"]"         ghcjs_dom_mouse_event_get_offset_y :: JSRef MouseEvent -> IO Int #else @@ -320,7 +320,7 @@       (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"x\"]"         ghcjs_dom_mouse_event_get_x :: JSRef MouseEvent -> IO Int #else @@ -333,7 +333,7 @@   = ghcjs_dom_mouse_event_get_x (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"y\"]"         ghcjs_dom_mouse_event_get_y :: JSRef MouseEvent -> IO Int #else @@ -346,7 +346,7 @@   = ghcjs_dom_mouse_event_get_y (unMouseEvent (toMouseEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"fromElement\"]"         ghcjs_dom_mouse_event_get_from_element ::         JSRef MouseEvent -> IO (JSRef Node)@@ -364,7 +364,7 @@          (unMouseEvent (toMouseEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"toElement\"]"         ghcjs_dom_mouse_event_get_to_element ::         JSRef MouseEvent -> IO (JSRef Node)
src/GHCJS/DOM/NamedNodeMap.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.NamedNodeMap        (ghcjs_dom_named_node_map_get_named_item, namedNodeMapGetNamedItem,@@ -30,7 +30,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getNamedItem\"]($2)"         ghcjs_dom_named_node_map_get_named_item ::         JSRef NamedNodeMap -> JSString -> IO (JSRef Node)@@ -50,7 +50,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setNamedItem\"]($2)"         ghcjs_dom_named_node_map_set_named_item ::         JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)@@ -70,7 +70,7 @@          (maybe jsNull (unNode . toNode) node))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)"         ghcjs_dom_named_node_map_remove_named_item ::         JSRef NamedNodeMap -> JSString -> IO (JSRef Node)@@ -90,7 +90,7 @@          (toJSString name))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_named_node_map_item ::         JSRef NamedNodeMap -> Word -> IO (JSRef Node)@@ -109,7 +109,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)"         ghcjs_dom_named_node_map_get_named_item_ns ::         JSRef NamedNodeMap -> JSString -> JSString -> IO (JSRef Node)@@ -132,7 +132,7 @@          (toJSString localName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)"         ghcjs_dom_named_node_map_set_named_item_ns ::         JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)@@ -152,7 +152,7 @@          (maybe jsNull (unNode . toNode) node))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"removeNamedItemNS\"]($2, $3)"         ghcjs_dom_named_node_map_remove_named_item_ns ::@@ -176,7 +176,7 @@          (toJSString localName))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_named_node_map_get_length ::         JSRef NamedNodeMap -> IO Word
src/GHCJS/DOM/Navigator.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Navigator        (ghcjs_dom_navigator_java_enabled, navigatorJavaEnabled,@@ -36,7 +36,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)"         ghcjs_dom_navigator_java_enabled :: JSRef Navigator -> IO Bool #else @@ -49,7 +49,7 @@   = ghcjs_dom_navigator_java_enabled (unNavigator (toNavigator self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getStorageUpdates\"]()"         ghcjs_dom_navigator_get_storage_updates :: JSRef Navigator -> IO () #else @@ -63,7 +63,7 @@       (unNavigator (toNavigator self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"appCodeName\"]"         ghcjs_dom_navigator_get_app_code_name ::         JSRef Navigator -> IO JSString@@ -81,7 +81,7 @@          (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"appName\"]"         ghcjs_dom_navigator_get_app_name :: JSRef Navigator -> IO JSString #else @@ -96,7 +96,7 @@       (ghcjs_dom_navigator_get_app_name (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"appVersion\"]"         ghcjs_dom_navigator_get_app_version ::         JSRef Navigator -> IO JSString@@ -114,7 +114,7 @@          (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"language\"]"         ghcjs_dom_navigator_get_language :: JSRef Navigator -> IO JSString #else @@ -129,7 +129,7 @@       (ghcjs_dom_navigator_get_language (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"userAgent\"]"         ghcjs_dom_navigator_get_user_agent ::         JSRef Navigator -> IO JSString@@ -147,7 +147,7 @@          (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"platform\"]"         ghcjs_dom_navigator_get_platform :: JSRef Navigator -> IO JSString #else @@ -162,7 +162,7 @@       (ghcjs_dom_navigator_get_platform (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"plugins\"]"         ghcjs_dom_navigator_get_plugins ::         JSRef Navigator -> IO (JSRef DOMPluginArray)@@ -179,7 +179,7 @@       (ghcjs_dom_navigator_get_plugins (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"mimeTypes\"]"         ghcjs_dom_navigator_get_mime_types ::         JSRef Navigator -> IO (JSRef DOMMimeTypeArray)@@ -197,7 +197,7 @@          (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"product\"]"         ghcjs_dom_navigator_get_product :: JSRef Navigator -> IO JSString #else @@ -212,7 +212,7 @@       (ghcjs_dom_navigator_get_product (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"productSub\"]"         ghcjs_dom_navigator_get_product_sub ::         JSRef Navigator -> IO JSString@@ -230,7 +230,7 @@          (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vendor\"]"         ghcjs_dom_navigator_get_vendor :: JSRef Navigator -> IO JSString #else @@ -245,7 +245,7 @@       (ghcjs_dom_navigator_get_vendor (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"vendorSub\"]"         ghcjs_dom_navigator_get_vendor_sub ::         JSRef Navigator -> IO JSString@@ -263,7 +263,7 @@          (unNavigator (toNavigator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"cookieEnabled\"] ? 1 : 0)"         ghcjs_dom_navigator_get_cookie_enabled ::         JSRef Navigator -> IO Bool@@ -279,7 +279,7 @@       (unNavigator (toNavigator self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)"         ghcjs_dom_navigator_get_on_line :: JSRef Navigator -> IO Bool #else
src/GHCJS/DOM/Node.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Node        (ghcjs_dom_node_insert_before, nodeInsertBefore,@@ -61,7 +61,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)"         ghcjs_dom_node_insert_before ::         JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)@@ -81,7 +81,7 @@          (maybe jsNull (unNode . toNode) refChild))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"         ghcjs_dom_node_replace_child ::         JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)@@ -101,7 +101,7 @@          (maybe jsNull (unNode . toNode) oldChild))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeChild\"]($2)"         ghcjs_dom_node_remove_child ::         JSRef Node -> JSRef Node -> IO (JSRef Node)@@ -120,7 +120,7 @@          (maybe jsNull (unNode . toNode) oldChild))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"appendChild\"]($2)"         ghcjs_dom_node_append_child ::         JSRef Node -> JSRef Node -> IO (JSRef Node)@@ -139,7 +139,7 @@          (maybe jsNull (unNode . toNode) newChild))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"hasChildNodes\"]() ? 1 : 0)" ghcjs_dom_node_has_child_nodes         :: JSRef Node -> IO Bool@@ -153,7 +153,7 @@   = ghcjs_dom_node_has_child_nodes (unNode (toNode self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"cloneNode\"]($2)"         ghcjs_dom_node_clone_node :: JSRef Node -> Bool -> IO (JSRef Node) #else @@ -167,7 +167,7 @@       (ghcjs_dom_node_clone_node (unNode (toNode self)) deep)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"normalize\"]()"         ghcjs_dom_node_normalize :: JSRef Node -> IO () #else @@ -180,7 +180,7 @@   = ghcjs_dom_node_normalize (unNode (toNode self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"isSupported\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_node_is_supported ::@@ -200,7 +200,7 @@       (toJSString version)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"         ghcjs_dom_node_is_same_node :: JSRef Node -> JSRef Node -> IO Bool #else @@ -215,7 +215,7 @@       (maybe jsNull (unNode . toNode) other)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"isEqualNode\"]($2) ? 1 : 0)" ghcjs_dom_node_is_equal_node ::         JSRef Node -> JSRef Node -> IO Bool@@ -231,7 +231,7 @@       (maybe jsNull (unNode . toNode) other)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"         ghcjs_dom_node_lookup_prefix ::         JSRef Node -> JSString -> IO JSString@@ -250,7 +250,7 @@          (toJSString namespaceURI))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)"         ghcjs_dom_node_is_default_namespace ::@@ -269,7 +269,7 @@       (toJSString namespaceURI)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"         ghcjs_dom_node_lookup_namespace_uri ::         JSRef Node -> JSString -> IO JSString@@ -288,7 +288,7 @@          (toJSString prefix))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"compareDocumentPosition\"]($2)"         ghcjs_dom_node_compare_document_position ::@@ -306,7 +306,7 @@       (maybe jsNull (unNode . toNode) other)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         ghcjs_dom_node_contains :: JSRef Node -> JSRef Node -> IO Bool #else @@ -321,7 +321,7 @@       (maybe jsNull (unNode . toNode) other)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)" ghcjs_dom_node_dispatch_event         :: JSRef Node -> JSRef Event -> IO Bool@@ -356,7 +356,7 @@ cDOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nodeName\"]"         ghcjs_dom_node_get_node_name :: JSRef Node -> IO JSString #else @@ -371,7 +371,7 @@       (ghcjs_dom_node_get_node_name (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"         ghcjs_dom_node_set_node_value :: JSRef Node -> JSString -> IO () #else @@ -386,7 +386,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nodeValue\"]"         ghcjs_dom_node_get_node_value :: JSRef Node -> IO JSString #else @@ -401,7 +401,7 @@       (ghcjs_dom_node_get_node_value (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nodeType\"]"         ghcjs_dom_node_get_node_type :: JSRef Node -> IO Word #else @@ -414,7 +414,7 @@   = ghcjs_dom_node_get_node_type (unNode (toNode self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"parentNode\"]"         ghcjs_dom_node_get_parent_node :: JSRef Node -> IO (JSRef Node) #else @@ -428,7 +428,7 @@       (ghcjs_dom_node_get_parent_node (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"childNodes\"]"         ghcjs_dom_node_get_child_nodes :: JSRef Node -> IO (JSRef NodeList) #else @@ -442,7 +442,7 @@       (ghcjs_dom_node_get_child_nodes (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"firstChild\"]"         ghcjs_dom_node_get_first_child :: JSRef Node -> IO (JSRef Node) #else @@ -456,7 +456,7 @@       (ghcjs_dom_node_get_first_child (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lastChild\"]"         ghcjs_dom_node_get_last_child :: JSRef Node -> IO (JSRef Node) #else @@ -470,7 +470,7 @@       (ghcjs_dom_node_get_last_child (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"previousSibling\"]"         ghcjs_dom_node_get_previous_sibling ::         JSRef Node -> IO (JSRef Node)@@ -486,7 +486,7 @@       (ghcjs_dom_node_get_previous_sibling (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"nextSibling\"]"         ghcjs_dom_node_get_next_sibling :: JSRef Node -> IO (JSRef Node) #else @@ -500,7 +500,7 @@       (ghcjs_dom_node_get_next_sibling (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ownerDocument\"]"         ghcjs_dom_node_get_owner_document ::         JSRef Node -> IO (JSRef Document)@@ -517,7 +517,7 @@       (ghcjs_dom_node_get_owner_document (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"namespaceURI\"]"         ghcjs_dom_node_get_namespace_uri :: JSRef Node -> IO JSString #else @@ -532,7 +532,7 @@       (ghcjs_dom_node_get_namespace_uri (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"prefix\"] = $2;"         ghcjs_dom_node_set_prefix :: JSRef Node -> JSString -> IO () #else @@ -546,7 +546,7 @@   = ghcjs_dom_node_set_prefix (unNode (toNode self)) (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"prefix\"]"         ghcjs_dom_node_get_prefix :: JSRef Node -> IO JSString #else @@ -561,7 +561,7 @@       (ghcjs_dom_node_get_prefix (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"localName\"]"         ghcjs_dom_node_get_local_name :: JSRef Node -> IO JSString #else @@ -576,7 +576,7 @@       (ghcjs_dom_node_get_local_name (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"baseURI\"]"         ghcjs_dom_node_get_base_uri :: JSRef Node -> IO JSString #else @@ -591,7 +591,7 @@       (ghcjs_dom_node_get_base_uri (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"textContent\"] = $2;"         ghcjs_dom_node_set_text_content :: JSRef Node -> JSString -> IO () #else @@ -606,7 +606,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"textContent\"]"         ghcjs_dom_node_get_text_content :: JSRef Node -> IO JSString #else @@ -621,7 +621,7 @@       (ghcjs_dom_node_get_text_content (unNode (toNode self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"parentElement\"]"         ghcjs_dom_node_get_parent_element ::         JSRef Node -> IO (JSRef Element)
src/GHCJS/DOM/NodeFilter.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.NodeFilter        (cFILTER_ACCEPT, cFILTER_REJECT, cFILTER_SKIP, cSHOW_ALL,
src/GHCJS/DOM/NodeIterator.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.NodeIterator        (ghcjs_dom_node_iterator_detach, nodeIteratorDetach,@@ -31,7 +31,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"detach\"]()"         ghcjs_dom_node_iterator_detach :: JSRef NodeIterator -> IO () #else @@ -45,7 +45,7 @@       (unNodeIterator (toNodeIterator self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"root\"]"         ghcjs_dom_node_iterator_get_root ::         JSRef NodeIterator -> IO (JSRef Node)@@ -63,7 +63,7 @@          (unNodeIterator (toNodeIterator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"whatToShow\"]"         ghcjs_dom_node_iterator_get_what_to_show ::         JSRef NodeIterator -> IO Word@@ -80,7 +80,7 @@       (unNodeIterator (toNodeIterator self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"filter\"]"         ghcjs_dom_node_iterator_get_filter ::         JSRef NodeIterator -> IO (JSRef NodeFilter)@@ -98,7 +98,7 @@          (unNodeIterator (toNodeIterator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"expandEntityReferences\"] ? 1 : 0)"         ghcjs_dom_node_iterator_get_expand_entity_references ::@@ -116,7 +116,7 @@       (unNodeIterator (toNodeIterator self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"referenceNode\"]"         ghcjs_dom_node_iterator_get_reference_node ::         JSRef NodeIterator -> IO (JSRef Node)@@ -134,7 +134,7 @@          (unNodeIterator (toNodeIterator self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)"         ghcjs_dom_node_iterator_get_pointer_before_reference_node ::
src/GHCJS/DOM/NodeList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.NodeList        (ghcjs_dom_node_list_item, nodeListItem,@@ -21,7 +21,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_node_list_item ::         JSRef NodeList -> Word -> IO (JSRef Node)@@ -38,7 +38,7 @@       (ghcjs_dom_node_list_item (unNodeList (toNodeList self)) index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_node_list_get_length :: JSRef NodeList -> IO Word #else
src/GHCJS/DOM/ProcessingInstruction.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.ProcessingInstruction        (ghcjs_dom_processing_instruction_get_target,@@ -28,7 +28,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_processing_instruction_get_target ::         JSRef ProcessingInstruction -> IO JSString@@ -47,7 +47,7 @@          (unProcessingInstruction (toProcessingInstruction self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"data\"] = $2;"         ghcjs_dom_processing_instruction_set_data ::         JSRef ProcessingInstruction -> JSString -> IO ()@@ -66,7 +66,7 @@       (toJSString val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"data\"]"         ghcjs_dom_processing_instruction_get_data ::         JSRef ProcessingInstruction -> IO JSString@@ -85,7 +85,7 @@          (unProcessingInstruction (toProcessingInstruction self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sheet\"]"         ghcjs_dom_processing_instruction_get_sheet ::         JSRef ProcessingInstruction -> IO (JSRef StyleSheet)
src/GHCJS/DOM/Range.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Range        (ghcjs_dom_range_set_start, rangeSetStart, ghcjs_dom_range_set_end,@@ -33,7 +33,7 @@         ghcjs_dom_range_get_collapsed, rangeGetCollapsed,         ghcjs_dom_range_get_common_ancestor_container,         rangeGetCommonAncestorContainer, ghcjs_dom_range_get_text,-        rangeGetText, Range, IsRange, castToRange, gTypeRange, toRange)+        rangeGetText, DOMRange, IsDOMRange, castToDOMRange, gTypeDOMRange, toDOMRange)        where import GHCJS.Types import GHCJS.Foreign@@ -50,16 +50,16 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setStart\"]($2, $3)"         ghcjs_dom_range_set_start ::         JSRef DOMRange -> JSRef Node -> Int -> IO ()-#else +#else ghcjs_dom_range_set_start ::                             JSRef DOMRange -> JSRef Node -> Int -> IO () ghcjs_dom_range_set_start = undefined #endif- + rangeSetStart ::               (IsDOMRange self, IsNode refNode) =>                 self -> Maybe refNode -> Int -> IO ()@@ -69,16 +69,16 @@       offset  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setEnd\"]($2, $3)"         ghcjs_dom_range_set_end ::         JSRef DOMRange -> JSRef Node -> Int -> IO ()-#else +#else ghcjs_dom_range_set_end ::                           JSRef DOMRange -> JSRef Node -> Int -> IO () ghcjs_dom_range_set_end = undefined #endif- + rangeSetEnd ::             (IsDOMRange self, IsNode refNode) =>               self -> Maybe refNode -> Int -> IO ()@@ -88,16 +88,16 @@       offset  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setStartBefore\"]($2)"         ghcjs_dom_range_set_start_before ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_set_start_before ::                                    JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_set_start_before = undefined #endif- + rangeSetStartBefore ::                     (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetStartBefore self refNode@@ -105,16 +105,16 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setStartAfter\"]($2)"         ghcjs_dom_range_set_start_after ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_set_start_after ::                                   JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_set_start_after = undefined #endif- + rangeSetStartAfter ::                    (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetStartAfter self refNode@@ -122,16 +122,16 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setEndBefore\"]($2)"         ghcjs_dom_range_set_end_before ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_set_end_before ::                                  JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_set_end_before = undefined #endif- + rangeSetEndBefore ::                   (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetEndBefore self refNode@@ -139,16 +139,16 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"setEndAfter\"]($2)"         ghcjs_dom_range_set_end_after ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_set_end_after ::                                 JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_set_end_after = undefined #endif- + rangeSetEndAfter ::                  (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetEndAfter self refNode@@ -156,29 +156,29 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"collapse\"]($2)"         ghcjs_dom_range_collapse :: JSRef DOMRange -> Bool -> IO ()-#else +#else ghcjs_dom_range_collapse :: JSRef DOMRange -> Bool -> IO () ghcjs_dom_range_collapse = undefined #endif- + rangeCollapse :: (IsDOMRange self) => self -> Bool -> IO () rangeCollapse self toStart   = ghcjs_dom_range_collapse (unDOMRange (toDOMRange self)) toStart  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectNode\"]($2)"         ghcjs_dom_range_select_node ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_select_node ::                               JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_select_node = undefined #endif- + rangeSelectNode ::                 (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSelectNode self refNode@@ -186,16 +186,16 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectNodeContents\"]($2)"         ghcjs_dom_range_select_node_contents ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_select_node_contents ::                                        JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_select_node_contents = undefined #endif- + rangeSelectNodeContents ::                         (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSelectNodeContents self refNode@@ -204,17 +204,17 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "$1[\"compareBoundaryPoints\"]($2,\n$3)"         ghcjs_dom_range_compare_boundary_points ::         JSRef DOMRange -> Word -> JSRef DOMRange -> IO Int-#else +#else ghcjs_dom_range_compare_boundary_points ::                                           JSRef DOMRange -> Word -> JSRef DOMRange -> IO Int ghcjs_dom_range_compare_boundary_points = undefined #endif- + rangeCompareBoundaryPoints ::                            (IsDOMRange self, IsDOMRange sourceRange) =>                              self -> Word -> Maybe sourceRange -> IO Int@@ -225,29 +225,29 @@       (maybe jsNull (unDOMRange . toDOMRange) sourceRange)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"deleteContents\"]()"         ghcjs_dom_range_delete_contents :: JSRef DOMRange -> IO ()-#else +#else ghcjs_dom_range_delete_contents :: JSRef DOMRange -> IO () ghcjs_dom_range_delete_contents = undefined #endif- + rangeDeleteContents :: (IsDOMRange self) => self -> IO () rangeDeleteContents self   = ghcjs_dom_range_delete_contents (unDOMRange (toDOMRange self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"extractContents\"]()"         ghcjs_dom_range_extract_contents ::         JSRef DOMRange -> IO (JSRef DocumentFragment)-#else +#else ghcjs_dom_range_extract_contents ::                                    JSRef DOMRange -> IO (JSRef DocumentFragment) ghcjs_dom_range_extract_contents = undefined #endif- + rangeExtractContents ::                      (IsDOMRange self) => self -> IO (Maybe DocumentFragment) rangeExtractContents self@@ -255,16 +255,16 @@       (ghcjs_dom_range_extract_contents (unDOMRange (toDOMRange self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"cloneContents\"]()"         ghcjs_dom_range_clone_contents ::         JSRef DOMRange -> IO (JSRef DocumentFragment)-#else +#else ghcjs_dom_range_clone_contents ::                                  JSRef DOMRange -> IO (JSRef DocumentFragment) ghcjs_dom_range_clone_contents = undefined #endif- + rangeCloneContents ::                    (IsDOMRange self) => self -> IO (Maybe DocumentFragment) rangeCloneContents self@@ -272,16 +272,16 @@       (ghcjs_dom_range_clone_contents (unDOMRange (toDOMRange self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"insertNode\"]($2)"         ghcjs_dom_range_insert_node ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_insert_node ::                               JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_insert_node = undefined #endif- + rangeInsertNode ::                 (IsDOMRange self, IsNode newNode) => self -> Maybe newNode -> IO () rangeInsertNode self newNode@@ -289,16 +289,16 @@       (maybe jsNull (unNode . toNode) newNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"surroundContents\"]($2)"         ghcjs_dom_range_surround_contents ::         JSRef DOMRange -> JSRef Node -> IO ()-#else +#else ghcjs_dom_range_surround_contents ::                                     JSRef DOMRange -> JSRef Node -> IO () ghcjs_dom_range_surround_contents = undefined #endif- + rangeSurroundContents ::                       (IsDOMRange self, IsNode newParent) =>                         self -> Maybe newParent -> IO ()@@ -307,30 +307,30 @@       (maybe jsNull (unNode . toNode) newParent)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"cloneRange\"]()"         ghcjs_dom_range_clone_range ::         JSRef DOMRange -> IO (JSRef DOMRange)-#else +#else ghcjs_dom_range_clone_range ::                               JSRef DOMRange -> IO (JSRef DOMRange) ghcjs_dom_range_clone_range = undefined #endif- + rangeCloneRange :: (IsDOMRange self) => self -> IO (Maybe DOMRange) rangeCloneRange self   = fmap DOMRange . maybeJSNull <$>       (ghcjs_dom_range_clone_range (unDOMRange (toDOMRange self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"toString\"]()"         ghcjs_dom_range_to_string :: JSRef DOMRange -> IO JSString-#else +#else ghcjs_dom_range_to_string :: JSRef DOMRange -> IO JSString ghcjs_dom_range_to_string = undefined #endif- + rangeToString ::               (IsDOMRange self, FromJSString result) => self -> IO result rangeToString self@@ -338,31 +338,31 @@       (ghcjs_dom_range_to_string (unDOMRange (toDOMRange self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"detach\"]()"         ghcjs_dom_range_detach :: JSRef DOMRange -> IO ()-#else +#else ghcjs_dom_range_detach :: JSRef DOMRange -> IO () ghcjs_dom_range_detach = undefined #endif- + rangeDetach :: (IsDOMRange self) => self -> IO () rangeDetach self   = ghcjs_dom_range_detach (unDOMRange (toDOMRange self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "$1[\"createContextualFragment\"]($2)"         ghcjs_dom_range_create_contextual_fragment ::         JSRef DOMRange -> JSString -> IO (JSRef DocumentFragment)-#else +#else ghcjs_dom_range_create_contextual_fragment ::                                              JSRef DOMRange ->                                                JSString -> IO (JSRef DocumentFragment) ghcjs_dom_range_create_contextual_fragment = undefined #endif- + rangeCreateContextualFragment ::                               (IsDOMRange self, ToJSString html) =>                                 self -> html -> IO (Maybe DocumentFragment)@@ -373,17 +373,17 @@          (toJSString html))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "($1[\"intersectsNode\"]($2) ? 1 : 0)"         ghcjs_dom_range_intersects_node ::         JSRef DOMRange -> JSRef Node -> IO Bool-#else +#else ghcjs_dom_range_intersects_node ::                                   JSRef DOMRange -> JSRef Node -> IO Bool ghcjs_dom_range_intersects_node = undefined #endif- + rangeIntersectsNode ::                     (IsDOMRange self, IsNode refNode) =>                       self -> Maybe refNode -> IO Bool@@ -392,16 +392,16 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"compareNode\"]($2)"         ghcjs_dom_range_compare_node ::         JSRef DOMRange -> JSRef Node -> IO Int-#else +#else ghcjs_dom_range_compare_node ::                                JSRef DOMRange -> JSRef Node -> IO Int ghcjs_dom_range_compare_node = undefined #endif- + rangeCompareNode ::                  (IsDOMRange self, IsNode refNode) =>                    self -> Maybe refNode -> IO Int@@ -410,16 +410,16 @@       (maybe jsNull (unNode . toNode) refNode)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)"         ghcjs_dom_range_compare_point ::         JSRef DOMRange -> JSRef Node -> Int -> IO Int-#else +#else ghcjs_dom_range_compare_point ::                                 JSRef DOMRange -> JSRef Node -> Int -> IO Int ghcjs_dom_range_compare_point = undefined #endif- + rangeComparePoint ::                   (IsDOMRange self, IsNode refNode) =>                     self -> Maybe refNode -> Int -> IO Int@@ -429,17 +429,17 @@       offset  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe         "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_range_is_point_in_range ::         JSRef DOMRange -> JSRef Node -> Int -> IO Bool-#else +#else ghcjs_dom_range_is_point_in_range ::                                     JSRef DOMRange -> JSRef Node -> Int -> IO Bool ghcjs_dom_range_is_point_in_range = undefined #endif- + rangeIsPointInRange ::                     (IsDOMRange self, IsNode refNode) =>                       self -> Maybe refNode -> Int -> IO Bool@@ -449,14 +449,14 @@       offset  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"expand\"]($2)"         ghcjs_dom_range_expand :: JSRef DOMRange -> JSString -> IO ()-#else +#else ghcjs_dom_range_expand :: JSRef DOMRange -> JSString -> IO () ghcjs_dom_range_expand = undefined #endif- + rangeExpand ::             (IsDOMRange self, ToJSString unit) => self -> unit -> IO () rangeExpand self unit@@ -472,16 +472,16 @@ cNODE_INSIDE = 3  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"startContainer\"]"         ghcjs_dom_range_get_start_container ::         JSRef DOMRange -> IO (JSRef Node)-#else +#else ghcjs_dom_range_get_start_container ::                                       JSRef DOMRange -> IO (JSRef Node) ghcjs_dom_range_get_start_container = undefined #endif- + rangeGetStartContainer ::                        (IsDOMRange self) => self -> IO (Maybe Node) rangeGetStartContainer self@@ -490,29 +490,29 @@          (unDOMRange (toDOMRange self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"startOffset\"]"         ghcjs_dom_range_get_start_offset :: JSRef DOMRange -> IO Int-#else +#else ghcjs_dom_range_get_start_offset :: JSRef DOMRange -> IO Int ghcjs_dom_range_get_start_offset = undefined #endif- + rangeGetStartOffset :: (IsDOMRange self) => self -> IO Int rangeGetStartOffset self   = ghcjs_dom_range_get_start_offset (unDOMRange (toDOMRange self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"endContainer\"]"         ghcjs_dom_range_get_end_container ::         JSRef DOMRange -> IO (JSRef Node)-#else +#else ghcjs_dom_range_get_end_container ::                                     JSRef DOMRange -> IO (JSRef Node) ghcjs_dom_range_get_end_container = undefined #endif- + rangeGetEndContainer ::                      (IsDOMRange self) => self -> IO (Maybe Node) rangeGetEndContainer self@@ -520,42 +520,42 @@       (ghcjs_dom_range_get_end_container (unDOMRange (toDOMRange self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"endOffset\"]"         ghcjs_dom_range_get_end_offset :: JSRef DOMRange -> IO Int-#else +#else ghcjs_dom_range_get_end_offset :: JSRef DOMRange -> IO Int ghcjs_dom_range_get_end_offset = undefined #endif- + rangeGetEndOffset :: (IsDOMRange self) => self -> IO Int rangeGetEndOffset self   = ghcjs_dom_range_get_end_offset (unDOMRange (toDOMRange self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"collapsed\"] ? 1 : 0)"         ghcjs_dom_range_get_collapsed :: JSRef DOMRange -> IO Bool-#else +#else ghcjs_dom_range_get_collapsed :: JSRef DOMRange -> IO Bool ghcjs_dom_range_get_collapsed = undefined #endif- + rangeGetCollapsed :: (IsDOMRange self) => self -> IO Bool rangeGetCollapsed self   = ghcjs_dom_range_get_collapsed (unDOMRange (toDOMRange self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"commonAncestorContainer\"]"         ghcjs_dom_range_get_common_ancestor_container ::         JSRef DOMRange -> IO (JSRef Node)-#else +#else ghcjs_dom_range_get_common_ancestor_container ::                                                 JSRef DOMRange -> IO (JSRef Node) ghcjs_dom_range_get_common_ancestor_container = undefined #endif- + rangeGetCommonAncestorContainer ::                                 (IsDOMRange self) => self -> IO (Maybe Node) rangeGetCommonAncestorContainer self@@ -564,14 +564,14 @@          (unDOMRange (toDOMRange self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_range_get_text :: JSRef DOMRange -> IO JSString-#else +#else ghcjs_dom_range_get_text :: JSRef DOMRange -> IO JSString ghcjs_dom_range_get_text = undefined #endif- + rangeGetText ::              (IsDOMRange self, FromJSString result) => self -> IO result rangeGetText self
src/GHCJS/DOM/Ranges.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Ranges (DOMRange, IsDOMRange) where
src/GHCJS/DOM/Screen.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Screen        (ghcjs_dom_screen_get_height, screenGetHeight,@@ -9,8 +9,8 @@         ghcjs_dom_screen_get_avail_left, screenGetAvailLeft,         ghcjs_dom_screen_get_avail_top, screenGetAvailTop,         ghcjs_dom_screen_get_avail_height, screenGetAvailHeight,-        ghcjs_dom_screen_get_avail_width, screenGetAvailWidth, Screen,-        IsScreen, castToScreen, gTypeScreen, toScreen)+        ghcjs_dom_screen_get_avail_width, screenGetAvailWidth, DOMScreen,+        IsDOMScreen, castToDOMScreen, gTypeDOMScreen, toDOMScreen)        where import GHCJS.Types import GHCJS.Foreign@@ -27,106 +27,106 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_screen_get_height :: JSRef DOMScreen -> IO Word-#else +#else ghcjs_dom_screen_get_height :: JSRef DOMScreen -> IO Word ghcjs_dom_screen_get_height = undefined #endif- + screenGetHeight :: (IsDOMScreen self) => self -> IO Word screenGetHeight self   = ghcjs_dom_screen_get_height (unDOMScreen (toDOMScreen self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_screen_get_width :: JSRef DOMScreen -> IO Word-#else +#else ghcjs_dom_screen_get_width :: JSRef DOMScreen -> IO Word ghcjs_dom_screen_get_width = undefined #endif- + screenGetWidth :: (IsDOMScreen self) => self -> IO Word screenGetWidth self   = ghcjs_dom_screen_get_width (unDOMScreen (toDOMScreen self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"colorDepth\"]"         ghcjs_dom_screen_get_color_depth :: JSRef DOMScreen -> IO Word-#else +#else ghcjs_dom_screen_get_color_depth :: JSRef DOMScreen -> IO Word ghcjs_dom_screen_get_color_depth = undefined #endif- + screenGetColorDepth :: (IsDOMScreen self) => self -> IO Word screenGetColorDepth self   = ghcjs_dom_screen_get_color_depth (unDOMScreen (toDOMScreen self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"pixelDepth\"]"         ghcjs_dom_screen_get_pixel_depth :: JSRef DOMScreen -> IO Word-#else +#else ghcjs_dom_screen_get_pixel_depth :: JSRef DOMScreen -> IO Word ghcjs_dom_screen_get_pixel_depth = undefined #endif- + screenGetPixelDepth :: (IsDOMScreen self) => self -> IO Word screenGetPixelDepth self   = ghcjs_dom_screen_get_pixel_depth (unDOMScreen (toDOMScreen self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"availLeft\"]"         ghcjs_dom_screen_get_avail_left :: JSRef DOMScreen -> IO Int-#else +#else ghcjs_dom_screen_get_avail_left :: JSRef DOMScreen -> IO Int ghcjs_dom_screen_get_avail_left = undefined #endif- + screenGetAvailLeft :: (IsDOMScreen self) => self -> IO Int screenGetAvailLeft self   = ghcjs_dom_screen_get_avail_left (unDOMScreen (toDOMScreen self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"availTop\"]"         ghcjs_dom_screen_get_avail_top :: JSRef DOMScreen -> IO Int-#else +#else ghcjs_dom_screen_get_avail_top :: JSRef DOMScreen -> IO Int ghcjs_dom_screen_get_avail_top = undefined #endif- + screenGetAvailTop :: (IsDOMScreen self) => self -> IO Int screenGetAvailTop self   = ghcjs_dom_screen_get_avail_top (unDOMScreen (toDOMScreen self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"availHeight\"]"         ghcjs_dom_screen_get_avail_height :: JSRef DOMScreen -> IO Word-#else +#else ghcjs_dom_screen_get_avail_height :: JSRef DOMScreen -> IO Word ghcjs_dom_screen_get_avail_height = undefined #endif- + screenGetAvailHeight :: (IsDOMScreen self) => self -> IO Word screenGetAvailHeight self   = ghcjs_dom_screen_get_avail_height       (unDOMScreen (toDOMScreen self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"availWidth\"]"         ghcjs_dom_screen_get_avail_width :: JSRef DOMScreen -> IO Word-#else +#else ghcjs_dom_screen_get_avail_width :: JSRef DOMScreen -> IO Word ghcjs_dom_screen_get_avail_width = undefined #endif- + screenGetAvailWidth :: (IsDOMScreen self) => self -> IO Word screenGetAvailWidth self   = ghcjs_dom_screen_get_avail_width (unDOMScreen (toDOMScreen self))
src/GHCJS/DOM/Storage.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Storage        (ghcjs_dom_storage_key, storageKey, ghcjs_dom_storage_get_item,@@ -24,7 +24,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"key\"]($2)"         ghcjs_dom_storage_key :: JSRef Storage -> Word -> IO JSString #else @@ -39,7 +39,7 @@       (ghcjs_dom_storage_key (unStorage (toStorage self)) index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getItem\"]($2)"         ghcjs_dom_storage_get_item ::         JSRef Storage -> JSString -> IO JSString@@ -58,7 +58,7 @@          (toJSString key))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"setItem\"]($2, $3)"         ghcjs_dom_storage_set_item ::         JSRef Storage -> JSString -> JSString -> IO ()@@ -77,7 +77,7 @@       (toJSString data')  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"removeItem\"]($2)"         ghcjs_dom_storage_remove_item :: JSRef Storage -> JSString -> IO () #else @@ -92,7 +92,7 @@       (toJSString key)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clear\"]()"         ghcjs_dom_storage_clear :: JSRef Storage -> IO () #else @@ -105,7 +105,7 @@   = ghcjs_dom_storage_clear (unStorage (toStorage self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_storage_get_length :: JSRef Storage -> IO Word #else
src/GHCJS/DOM/StorageInfo.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.StorageInfo        (cTEMPORARY, cPERSISTENT, StorageInfo, IsStorageInfo,
src/GHCJS/DOM/StyleMedia.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.StyleMedia        (ghcjs_dom_style_media_match_medium, styleMediaMatchMedium,@@ -21,7 +21,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"matchMedium\"]($2) ? 1 : 0)"         ghcjs_dom_style_media_match_medium ::
src/GHCJS/DOM/StyleSheet.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.StyleSheet        (ghcjs_dom_style_sheet_set_disabled, styleSheetSetDisabled,@@ -27,7 +27,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_style_sheet_set_disabled ::         JSRef StyleSheet -> Bool -> IO ()@@ -45,7 +45,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_style_sheet_get_disabled :: JSRef StyleSheet -> IO Bool #else @@ -59,7 +59,7 @@       (unStyleSheet (toStyleSheet self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"ownerNode\"]"         ghcjs_dom_style_sheet_get_owner_node ::         JSRef StyleSheet -> IO (JSRef Node)@@ -77,7 +77,7 @@          (unStyleSheet (toStyleSheet self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"parentStyleSheet\"]"         ghcjs_dom_style_sheet_get_parent_style_sheet ::         JSRef StyleSheet -> IO (JSRef StyleSheet)@@ -95,7 +95,7 @@          (unStyleSheet (toStyleSheet self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_style_sheet_get_href :: JSRef StyleSheet -> IO JSString #else @@ -110,7 +110,7 @@       (ghcjs_dom_style_sheet_get_href (unStyleSheet (toStyleSheet self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"title\"]"         ghcjs_dom_style_sheet_get_title :: JSRef StyleSheet -> IO JSString #else @@ -126,7 +126,7 @@          (unStyleSheet (toStyleSheet self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_style_sheet_get_media ::         JSRef StyleSheet -> IO (JSRef MediaList)
src/GHCJS/DOM/StyleSheetList.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.StyleSheetList        (ghcjs_dom_style_sheet_list_item, styleSheetListItem,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_style_sheet_list_item ::         JSRef StyleSheetList -> Word -> IO (JSRef StyleSheet)@@ -41,7 +41,7 @@          index)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_style_sheet_list_get_length ::         JSRef StyleSheetList -> IO Word
src/GHCJS/DOM/Stylesheets.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Stylesheets (MediaList, IsMediaList) where
src/GHCJS/DOM/Text.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Text        (ghcjs_dom_text_split_text, textSplitText,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"splitText\"]($2)"         ghcjs_dom_text_split_text :: JSRef Text -> Word -> IO (JSRef Text) #else @@ -36,7 +36,7 @@       (ghcjs_dom_text_split_text (unText (toText self)) offset)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"replaceWholeText\"]($2)"         ghcjs_dom_text_replace_whole_text ::         JSRef Text -> JSString -> IO (JSRef Text)@@ -55,7 +55,7 @@          (toJSString content))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"wholeText\"]"         ghcjs_dom_text_get_whole_text :: JSRef Text -> IO JSString #else
src/GHCJS/DOM/TimeRanges.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.TimeRanges        (ghcjs_dom_time_ranges_start, timeRangesStart,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"start\"]($2)"         ghcjs_dom_time_ranges_start ::         JSRef TimeRanges -> Word -> IO Double@@ -39,7 +39,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"end\"]($2)"         ghcjs_dom_time_ranges_end :: JSRef TimeRanges -> Word -> IO Double #else @@ -53,7 +53,7 @@       index  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_time_ranges_get_length :: JSRef TimeRanges -> IO Word #else
src/GHCJS/DOM/Traversal.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Traversal (NodeFilter, IsNodeFilter) where
src/GHCJS/DOM/TreeWalker.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.TreeWalker        (ghcjs_dom_tree_walker_get_root, treeWalkerGetRoot,@@ -27,7 +27,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"root\"]"         ghcjs_dom_tree_walker_get_root ::         JSRef TreeWalker -> IO (JSRef Node)@@ -43,7 +43,7 @@       (ghcjs_dom_tree_walker_get_root (unTreeWalker (toTreeWalker self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"whatToShow\"]"         ghcjs_dom_tree_walker_get_what_to_show ::         JSRef TreeWalker -> IO Word@@ -59,7 +59,7 @@       (unTreeWalker (toTreeWalker self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"filter\"]"         ghcjs_dom_tree_walker_get_filter ::         JSRef TreeWalker -> IO (JSRef NodeFilter)@@ -77,7 +77,7 @@          (unTreeWalker (toTreeWalker self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"expandEntityReferences\"] ? 1 : 0)"         ghcjs_dom_tree_walker_get_expand_entity_references ::@@ -95,7 +95,7 @@       (unTreeWalker (toTreeWalker self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"currentNode\"] = $2;"         ghcjs_dom_tree_walker_set_current_node ::         JSRef TreeWalker -> JSRef Node -> IO ()@@ -113,7 +113,7 @@       (maybe jsNull (unNode . toNode) val)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"currentNode\"]"         ghcjs_dom_tree_walker_get_current_node ::         JSRef TreeWalker -> IO (JSRef Node)
src/GHCJS/DOM/Types.hs view
@@ -1,11 +1,11 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface #-} #else {-# LANGUAGE ConstraintKinds #-} #endif module GHCJS.DOM.Types (-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)     maybeJSNull, propagateGError, GType(..)   , GObject(..), GObjectClass, toGObject, unGObject, castToGObject, gTypeGObject, unsafeCastGObject @@ -274,14 +274,14 @@   ) where  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) import GHCJS.Types (JSRef(..), castRef, isNull) #else import Graphics.UI.Gtk.WebKit.Types import System.Glib (propagateGError, GType(..)) #endif -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) maybeJSNull :: JSRef a -> Maybe (JSRef a) maybeJSNull r | isNull r = Nothing maybeJSNull r = Just r@@ -290,7 +290,7 @@  data GType = GType (JSRef GType) -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "h$isInstanceOf $1 $2"     typeInstanceIsA' :: JSRef a -> JSRef GType -> Bool #else@@ -329,7 +329,7 @@ castToGObject :: GObjectClass obj => obj -> obj castToGObject = id -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "object" gTypeGObject' :: JSRef GType #else gTypeGObject' = error "gTypeGObject': only available in JavaScript"@@ -339,7 +339,7 @@  -- AUTO GENERATION STARTS HERE -- The remainder of this file is generated from IDL files using domconv-webkit-jsffi-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMAttr = DOMAttr (JSRef DOMAttr)  unDOMAttr (DOMAttr o) = o@@ -357,7 +357,7 @@ castToDOMAttr :: GObjectClass obj => obj -> DOMAttr castToDOMAttr = castTo gTypeDOMAttr "DOMAttr" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMAttr\"]" gTypeDOMAttr' :: JSRef GType #else gTypeDOMAttr' = error "gTypeDOMAttr': only available in JavaScript"@@ -368,7 +368,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype BarProp = BarProp (JSRef BarProp)  unBarProp (BarProp o) = o@@ -385,7 +385,7 @@ castToBarProp :: GObjectClass obj => obj -> BarProp castToBarProp = castTo gTypeBarProp "BarProp" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"BarProp\"]" gTypeBarProp' :: JSRef GType #else gTypeBarProp' = error "gTypeBarProp': only available in JavaScript"@@ -395,7 +395,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Blob = Blob (JSRef Blob)  unBlob (Blob o) = o@@ -412,7 +412,7 @@ castToBlob :: GObjectClass obj => obj -> Blob castToBlob = castTo gTypeBlob "Blob" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Blob\"]" gTypeBlob' :: JSRef GType #else gTypeBlob' = error "gTypeBlob': only available in JavaScript"@@ -423,7 +423,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CDATASection = CDATASection (JSRef CDATASection)  unCDATASection (CDATASection o) = o@@ -443,7 +443,7 @@ castToCDATASection :: GObjectClass obj => obj -> CDATASection castToCDATASection = castTo gTypeCDATASection "CDATASection" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"CDATASection\"]" gTypeCDATASection' :: JSRef GType #else gTypeCDATASection' = error "gTypeCDATASection': only available in JavaScript"@@ -454,7 +454,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CSSRule = CSSRule (JSRef CSSRule)  unCSSRule (CSSRule o) = o@@ -471,7 +471,7 @@ castToCSSRule :: GObjectClass obj => obj -> CSSRule castToCSSRule = castTo gTypeCSSRule "CSSRule" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"CSSRule\"]" gTypeCSSRule' :: JSRef GType #else gTypeCSSRule' = error "gTypeCSSRule': only available in JavaScript"@@ -482,7 +482,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CSSRuleList = CSSRuleList (JSRef CSSRuleList)  unCSSRuleList (CSSRuleList o) = o@@ -499,7 +499,7 @@ castToCSSRuleList :: GObjectClass obj => obj -> CSSRuleList castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"CSSRuleList\"]" gTypeCSSRuleList' :: JSRef GType #else gTypeCSSRuleList' = error "gTypeCSSRuleList': only available in JavaScript"@@ -510,7 +510,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CSSStyleDeclaration = CSSStyleDeclaration (JSRef CSSStyleDeclaration)  unCSSStyleDeclaration (CSSStyleDeclaration o) = o@@ -527,7 +527,7 @@ castToCSSStyleDeclaration :: GObjectClass obj => obj -> CSSStyleDeclaration castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"CSSStyleDeclaration\"]" gTypeCSSStyleDeclaration' :: JSRef GType #else gTypeCSSStyleDeclaration' = error "gTypeCSSStyleDeclaration': only available in JavaScript"@@ -538,7 +538,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CSSStyleSheet = CSSStyleSheet (JSRef CSSStyleSheet)  unCSSStyleSheet (CSSStyleSheet o) = o@@ -556,7 +556,7 @@ castToCSSStyleSheet :: GObjectClass obj => obj -> CSSStyleSheet castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"CSSStyleSheet\"]" gTypeCSSStyleSheet' :: JSRef GType #else gTypeCSSStyleSheet' = error "gTypeCSSStyleSheet': only available in JavaScript"@@ -567,7 +567,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CSSValue = CSSValue (JSRef CSSValue)  unCSSValue (CSSValue o) = o@@ -584,7 +584,7 @@ castToCSSValue :: GObjectClass obj => obj -> CSSValue castToCSSValue = castTo gTypeCSSValue "CSSValue" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"CSSValue\"]" gTypeCSSValue' :: JSRef GType #else gTypeCSSValue' = error "gTypeCSSValue': only available in JavaScript"@@ -595,7 +595,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype CharacterData = CharacterData (JSRef CharacterData)  unCharacterData (CharacterData o) = o@@ -613,7 +613,7 @@ castToCharacterData :: GObjectClass obj => obj -> CharacterData castToCharacterData = castTo gTypeCharacterData "CharacterData" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"CharacterData\"]" gTypeCharacterData' :: JSRef GType #else gTypeCharacterData' = error "gTypeCharacterData': only available in JavaScript"@@ -624,7 +624,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Comment = Comment (JSRef Comment)  unComment (Comment o) = o@@ -643,7 +643,7 @@ castToComment :: GObjectClass obj => obj -> Comment castToComment = castTo gTypeComment "Comment" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Comment\"]" gTypeComment' :: JSRef GType #else gTypeComment' = error "gTypeComment': only available in JavaScript"@@ -654,7 +654,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Console = Console (JSRef Console)  unConsole (Console o) = o@@ -671,7 +671,7 @@ castToConsole :: GObjectClass obj => obj -> Console castToConsole = castTo gTypeConsole "Console" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Console\"]" gTypeConsole' :: JSRef GType #else gTypeConsole' = error "gTypeConsole': only available in JavaScript"@@ -682,7 +682,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMApplicationCache = DOMApplicationCache (JSRef DOMApplicationCache)  unDOMApplicationCache (DOMApplicationCache o) = o@@ -699,7 +699,7 @@ castToDOMApplicationCache :: GObjectClass obj => obj -> DOMApplicationCache castToDOMApplicationCache = castTo gTypeDOMApplicationCache "DOMApplicationCache" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMApplicationCache\"]" gTypeDOMApplicationCache' :: JSRef GType #else gTypeDOMApplicationCache' = error "gTypeDOMApplicationCache': only available in JavaScript"@@ -710,7 +710,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMImplementation = DOMImplementation (JSRef DOMImplementation)  unDOMImplementation (DOMImplementation o) = o@@ -727,7 +727,7 @@ castToDOMImplementation :: GObjectClass obj => obj -> DOMImplementation castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMImplementation\"]" gTypeDOMImplementation' :: JSRef GType #else gTypeDOMImplementation' = error "gTypeDOMImplementation': only available in JavaScript"@@ -738,7 +738,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMMimeType = DOMMimeType (JSRef DOMMimeType)  unDOMMimeType (DOMMimeType o) = o@@ -755,7 +755,7 @@ castToDOMMimeType :: GObjectClass obj => obj -> DOMMimeType castToDOMMimeType = castTo gTypeDOMMimeType "DOMMimeType" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMMimeType\"]" gTypeDOMMimeType' :: JSRef GType #else gTypeDOMMimeType' = error "gTypeDOMMimeType': only available in JavaScript"@@ -766,7 +766,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMMimeTypeArray = DOMMimeTypeArray (JSRef DOMMimeTypeArray)  unDOMMimeTypeArray (DOMMimeTypeArray o) = o@@ -783,7 +783,7 @@ castToDOMMimeTypeArray :: GObjectClass obj => obj -> DOMMimeTypeArray castToDOMMimeTypeArray = castTo gTypeDOMMimeTypeArray "DOMMimeTypeArray" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMMimeTypeArray\"]" gTypeDOMMimeTypeArray' :: JSRef GType #else gTypeDOMMimeTypeArray' = error "gTypeDOMMimeTypeArray': only available in JavaScript"@@ -794,7 +794,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMNamedFlowCollection = DOMNamedFlowCollection (JSRef DOMNamedFlowCollection)  unDOMNamedFlowCollection (DOMNamedFlowCollection o) = o@@ -811,7 +811,7 @@ castToDOMNamedFlowCollection :: GObjectClass obj => obj -> DOMNamedFlowCollection castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMNamedFlowCollection\"]" gTypeDOMNamedFlowCollection' :: JSRef GType #else gTypeDOMNamedFlowCollection' = error "gTypeDOMNamedFlowCollection': only available in JavaScript"@@ -821,7 +821,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMPlugin = DOMPlugin (JSRef DOMPlugin)  unDOMPlugin (DOMPlugin o) = o@@ -838,7 +838,7 @@ castToDOMPlugin :: GObjectClass obj => obj -> DOMPlugin castToDOMPlugin = castTo gTypeDOMPlugin "DOMPlugin" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMPlugin\"]" gTypeDOMPlugin' :: JSRef GType #else gTypeDOMPlugin' = error "gTypeDOMPlugin': only available in JavaScript"@@ -849,7 +849,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMPluginArray = DOMPluginArray (JSRef DOMPluginArray)  unDOMPluginArray (DOMPluginArray o) = o@@ -866,7 +866,7 @@ castToDOMPluginArray :: GObjectClass obj => obj -> DOMPluginArray castToDOMPluginArray = castTo gTypeDOMPluginArray "DOMPluginArray" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMPluginArray\"]" gTypeDOMPluginArray' :: JSRef GType #else gTypeDOMPluginArray' = error "gTypeDOMPluginArray': only available in JavaScript"@@ -877,7 +877,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMSecurityPolicy = DOMSecurityPolicy (JSRef DOMSecurityPolicy)  unDOMSecurityPolicy (DOMSecurityPolicy o) = o@@ -894,7 +894,7 @@ castToDOMSecurityPolicy :: GObjectClass obj => obj -> DOMSecurityPolicy castToDOMSecurityPolicy = castTo gTypeDOMSecurityPolicy "DOMSecurityPolicy" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMSecurityPolicy\"]" gTypeDOMSecurityPolicy' :: JSRef GType #else gTypeDOMSecurityPolicy' = error "gTypeDOMSecurityPolicy': only available in JavaScript"@@ -904,7 +904,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMSelection = DOMSelection (JSRef DOMSelection)  unDOMSelection (DOMSelection o) = o@@ -921,7 +921,7 @@ castToDOMSelection :: GObjectClass obj => obj -> DOMSelection castToDOMSelection = castTo gTypeDOMSelection "DOMSelection" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMSelection\"]" gTypeDOMSelection' :: JSRef GType #else gTypeDOMSelection' = error "gTypeDOMSelection': only available in JavaScript"@@ -932,7 +932,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMSettableTokenList = DOMSettableTokenList (JSRef DOMSettableTokenList)  unDOMSettableTokenList (DOMSettableTokenList o) = o@@ -950,7 +950,7 @@ castToDOMSettableTokenList :: GObjectClass obj => obj -> DOMSettableTokenList castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMSettableTokenList\"]" gTypeDOMSettableTokenList' :: JSRef GType #else gTypeDOMSettableTokenList' = error "gTypeDOMSettableTokenList': only available in JavaScript"@@ -961,7 +961,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMStringList = DOMStringList (JSRef DOMStringList)  unDOMStringList (DOMStringList o) = o@@ -978,7 +978,7 @@ castToDOMStringList :: GObjectClass obj => obj -> DOMStringList castToDOMStringList = castTo gTypeDOMStringList "DOMStringList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMStringList\"]" gTypeDOMStringList' :: JSRef GType #else gTypeDOMStringList' = error "gTypeDOMStringList': only available in JavaScript"@@ -989,7 +989,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMTokenList = DOMTokenList (JSRef DOMTokenList)  unDOMTokenList (DOMTokenList o) = o@@ -1006,7 +1006,7 @@ castToDOMTokenList :: GObjectClass obj => obj -> DOMTokenList castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMTokenList\"]" gTypeDOMTokenList' :: JSRef GType #else gTypeDOMTokenList' = error "gTypeDOMTokenList': only available in JavaScript"@@ -1017,7 +1017,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMWindow = DOMWindow (JSRef DOMWindow)  unDOMWindow (DOMWindow o) = o@@ -1034,7 +1034,7 @@ castToDOMWindow :: GObjectClass obj => obj -> DOMWindow castToDOMWindow = castTo gTypeDOMWindow "DOMWindow" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMWindow\"]" gTypeDOMWindow' :: JSRef GType #else gTypeDOMWindow' = error "gTypeDOMWindow': only available in JavaScript"@@ -1045,7 +1045,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMWindowCSS = DOMWindowCSS (JSRef DOMWindowCSS)  unDOMWindowCSS (DOMWindowCSS o) = o@@ -1062,7 +1062,7 @@ castToDOMWindowCSS :: GObjectClass obj => obj -> DOMWindowCSS castToDOMWindowCSS = castTo gTypeDOMWindowCSS "DOMWindowCSS" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMWindowCSS\"]" gTypeDOMWindowCSS' :: JSRef GType #else gTypeDOMWindowCSS' = error "gTypeDOMWindowCSS': only available in JavaScript"@@ -1072,7 +1072,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Document = Document (JSRef Document)  unDocument (Document o) = o@@ -1090,7 +1090,7 @@ castToDocument :: GObjectClass obj => obj -> Document castToDocument = castTo gTypeDocument "Document" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Document\"]" gTypeDocument' :: JSRef GType #else gTypeDocument' = error "gTypeDocument': only available in JavaScript"@@ -1101,7 +1101,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DocumentFragment = DocumentFragment (JSRef DocumentFragment)  unDocumentFragment (DocumentFragment o) = o@@ -1119,7 +1119,7 @@ castToDocumentFragment :: GObjectClass obj => obj -> DocumentFragment castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DocumentFragment\"]" gTypeDocumentFragment' :: JSRef GType #else gTypeDocumentFragment' = error "gTypeDocumentFragment': only available in JavaScript"@@ -1130,7 +1130,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DocumentType = DocumentType (JSRef DocumentType)  unDocumentType (DocumentType o) = o@@ -1148,7 +1148,7 @@ castToDocumentType :: GObjectClass obj => obj -> DocumentType castToDocumentType = castTo gTypeDocumentType "DocumentType" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DocumentType\"]" gTypeDocumentType' :: JSRef GType #else gTypeDocumentType' = error "gTypeDocumentType': only available in JavaScript"@@ -1159,7 +1159,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Element = Element (JSRef Element)  unElement (Element o) = o@@ -1177,7 +1177,7 @@ castToElement :: GObjectClass obj => obj -> Element castToElement = castTo gTypeElement "Element" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Element\"]" gTypeElement' :: JSRef GType #else gTypeElement' = error "gTypeElement': only available in JavaScript"@@ -1188,7 +1188,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype EntityReference = EntityReference (JSRef EntityReference)  unEntityReference (EntityReference o) = o@@ -1206,7 +1206,7 @@ castToEntityReference :: GObjectClass obj => obj -> EntityReference castToEntityReference = castTo gTypeEntityReference "EntityReference" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"EntityReference\"]" gTypeEntityReference' :: JSRef GType #else gTypeEntityReference' = error "gTypeEntityReference': only available in JavaScript"@@ -1217,7 +1217,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Event = Event (JSRef Event)  unEvent (Event o) = o@@ -1234,7 +1234,7 @@ castToEvent :: GObjectClass obj => obj -> Event castToEvent = castTo gTypeEvent "Event" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Event\"]" gTypeEvent' :: JSRef GType #else gTypeEvent' = error "gTypeEvent': only available in JavaScript"@@ -1245,7 +1245,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype EventTarget = EventTarget (JSRef EventTarget)  unEventTarget (EventTarget o) = o@@ -1262,7 +1262,7 @@ castToEventTarget :: GObjectClass obj => obj -> EventTarget castToEventTarget = castTo gTypeEventTarget "EventTarget" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"EventTarget\"]" gTypeEventTarget' :: JSRef GType #else gTypeEventTarget' = error "gTypeEventTarget': only available in JavaScript"@@ -1273,7 +1273,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype File = File (JSRef File)  unFile (File o) = o@@ -1291,7 +1291,7 @@ castToFile :: GObjectClass obj => obj -> File castToFile = castTo gTypeFile "File" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"File\"]" gTypeFile' :: JSRef GType #else gTypeFile' = error "gTypeFile': only available in JavaScript"@@ -1302,7 +1302,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype FileList = FileList (JSRef FileList)  unFileList (FileList o) = o@@ -1319,7 +1319,7 @@ castToFileList :: GObjectClass obj => obj -> FileList castToFileList = castTo gTypeFileList "FileList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"FileList\"]" gTypeFileList' :: JSRef GType #else gTypeFileList' = error "gTypeFileList': only available in JavaScript"@@ -1330,7 +1330,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Geolocation = Geolocation (JSRef Geolocation)  unGeolocation (Geolocation o) = o@@ -1347,7 +1347,7 @@ castToGeolocation :: GObjectClass obj => obj -> Geolocation castToGeolocation = castTo gTypeGeolocation "Geolocation" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Geolocation\"]" gTypeGeolocation' :: JSRef GType #else gTypeGeolocation' = error "gTypeGeolocation': only available in JavaScript"@@ -1358,7 +1358,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLAnchorElement = HTMLAnchorElement (JSRef HTMLAnchorElement)  unHTMLAnchorElement (HTMLAnchorElement o) = o@@ -1378,7 +1378,7 @@ castToHTMLAnchorElement :: GObjectClass obj => obj -> HTMLAnchorElement castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLAnchorElement\"]" gTypeHTMLAnchorElement' :: JSRef GType #else gTypeHTMLAnchorElement' = error "gTypeHTMLAnchorElement': only available in JavaScript"@@ -1389,7 +1389,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLAppletElement = HTMLAppletElement (JSRef HTMLAppletElement)  unHTMLAppletElement (HTMLAppletElement o) = o@@ -1409,7 +1409,7 @@ castToHTMLAppletElement :: GObjectClass obj => obj -> HTMLAppletElement castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLAppletElement\"]" gTypeHTMLAppletElement' :: JSRef GType #else gTypeHTMLAppletElement' = error "gTypeHTMLAppletElement': only available in JavaScript"@@ -1420,7 +1420,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLAreaElement = HTMLAreaElement (JSRef HTMLAreaElement)  unHTMLAreaElement (HTMLAreaElement o) = o@@ -1440,7 +1440,7 @@ castToHTMLAreaElement :: GObjectClass obj => obj -> HTMLAreaElement castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLAreaElement\"]" gTypeHTMLAreaElement' :: JSRef GType #else gTypeHTMLAreaElement' = error "gTypeHTMLAreaElement': only available in JavaScript"@@ -1451,7 +1451,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLAudioElement = HTMLAudioElement (JSRef HTMLAudioElement)  unHTMLAudioElement (HTMLAudioElement o) = o@@ -1472,7 +1472,7 @@ castToHTMLAudioElement :: GObjectClass obj => obj -> HTMLAudioElement castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLAudioElement\"]" gTypeHTMLAudioElement' :: JSRef GType #else gTypeHTMLAudioElement' = error "gTypeHTMLAudioElement': only available in JavaScript"@@ -1483,7 +1483,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLBRElement = HTMLBRElement (JSRef HTMLBRElement)  unHTMLBRElement (HTMLBRElement o) = o@@ -1503,7 +1503,7 @@ castToHTMLBRElement :: GObjectClass obj => obj -> HTMLBRElement castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLBRElement\"]" gTypeHTMLBRElement' :: JSRef GType #else gTypeHTMLBRElement' = error "gTypeHTMLBRElement': only available in JavaScript"@@ -1514,7 +1514,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLBaseElement = HTMLBaseElement (JSRef HTMLBaseElement)  unHTMLBaseElement (HTMLBaseElement o) = o@@ -1534,7 +1534,7 @@ castToHTMLBaseElement :: GObjectClass obj => obj -> HTMLBaseElement castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLBaseElement\"]" gTypeHTMLBaseElement' :: JSRef GType #else gTypeHTMLBaseElement' = error "gTypeHTMLBaseElement': only available in JavaScript"@@ -1545,7 +1545,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLBaseFontElement = HTMLBaseFontElement (JSRef HTMLBaseFontElement)  unHTMLBaseFontElement (HTMLBaseFontElement o) = o@@ -1565,7 +1565,7 @@ castToHTMLBaseFontElement :: GObjectClass obj => obj -> HTMLBaseFontElement castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLBaseFontElement\"]" gTypeHTMLBaseFontElement' :: JSRef GType #else gTypeHTMLBaseFontElement' = error "gTypeHTMLBaseFontElement': only available in JavaScript"@@ -1576,7 +1576,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLBodyElement = HTMLBodyElement (JSRef HTMLBodyElement)  unHTMLBodyElement (HTMLBodyElement o) = o@@ -1596,7 +1596,7 @@ castToHTMLBodyElement :: GObjectClass obj => obj -> HTMLBodyElement castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLBodyElement\"]" gTypeHTMLBodyElement' :: JSRef GType #else gTypeHTMLBodyElement' = error "gTypeHTMLBodyElement': only available in JavaScript"@@ -1607,7 +1607,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLButtonElement = HTMLButtonElement (JSRef HTMLButtonElement)  unHTMLButtonElement (HTMLButtonElement o) = o@@ -1627,7 +1627,7 @@ castToHTMLButtonElement :: GObjectClass obj => obj -> HTMLButtonElement castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLButtonElement\"]" gTypeHTMLButtonElement' :: JSRef GType #else gTypeHTMLButtonElement' = error "gTypeHTMLButtonElement': only available in JavaScript"@@ -1638,7 +1638,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLCanvasElement = HTMLCanvasElement (JSRef HTMLCanvasElement)  unHTMLCanvasElement (HTMLCanvasElement o) = o@@ -1658,7 +1658,7 @@ castToHTMLCanvasElement :: GObjectClass obj => obj -> HTMLCanvasElement castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLCanvasElement\"]" gTypeHTMLCanvasElement' :: JSRef GType #else gTypeHTMLCanvasElement' = error "gTypeHTMLCanvasElement': only available in JavaScript"@@ -1669,7 +1669,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLCollection = HTMLCollection (JSRef HTMLCollection)  unHTMLCollection (HTMLCollection o) = o@@ -1686,7 +1686,7 @@ castToHTMLCollection :: GObjectClass obj => obj -> HTMLCollection castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLCollection\"]" gTypeHTMLCollection' :: JSRef GType #else gTypeHTMLCollection' = error "gTypeHTMLCollection': only available in JavaScript"@@ -1697,7 +1697,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLDListElement = HTMLDListElement (JSRef HTMLDListElement)  unHTMLDListElement (HTMLDListElement o) = o@@ -1717,7 +1717,7 @@ castToHTMLDListElement :: GObjectClass obj => obj -> HTMLDListElement castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLDListElement\"]" gTypeHTMLDListElement' :: JSRef GType #else gTypeHTMLDListElement' = error "gTypeHTMLDListElement': only available in JavaScript"@@ -1728,7 +1728,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLDetailsElement = HTMLDetailsElement (JSRef HTMLDetailsElement)  unHTMLDetailsElement (HTMLDetailsElement o) = o@@ -1748,7 +1748,7 @@ castToHTMLDetailsElement :: GObjectClass obj => obj -> HTMLDetailsElement castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLDetailsElement\"]" gTypeHTMLDetailsElement' :: JSRef GType #else gTypeHTMLDetailsElement' = error "gTypeHTMLDetailsElement': only available in JavaScript"@@ -1759,7 +1759,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLDirectoryElement = HTMLDirectoryElement (JSRef HTMLDirectoryElement)  unHTMLDirectoryElement (HTMLDirectoryElement o) = o@@ -1779,7 +1779,7 @@ castToHTMLDirectoryElement :: GObjectClass obj => obj -> HTMLDirectoryElement castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLDirectoryElement\"]" gTypeHTMLDirectoryElement' :: JSRef GType #else gTypeHTMLDirectoryElement' = error "gTypeHTMLDirectoryElement': only available in JavaScript"@@ -1790,7 +1790,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLDivElement = HTMLDivElement (JSRef HTMLDivElement)  unHTMLDivElement (HTMLDivElement o) = o@@ -1810,7 +1810,7 @@ castToHTMLDivElement :: GObjectClass obj => obj -> HTMLDivElement castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLDivElement\"]" gTypeHTMLDivElement' :: JSRef GType #else gTypeHTMLDivElement' = error "gTypeHTMLDivElement': only available in JavaScript"@@ -1821,7 +1821,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLDocument = HTMLDocument (JSRef HTMLDocument)  unHTMLDocument (HTMLDocument o) = o@@ -1840,7 +1840,7 @@ castToHTMLDocument :: GObjectClass obj => obj -> HTMLDocument castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLDocument\"]" gTypeHTMLDocument' :: JSRef GType #else gTypeHTMLDocument' = error "gTypeHTMLDocument': only available in JavaScript"@@ -1851,7 +1851,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLElement = HTMLElement (JSRef HTMLElement)  unHTMLElement (HTMLElement o) = o@@ -1870,7 +1870,7 @@ castToHTMLElement :: GObjectClass obj => obj -> HTMLElement castToHTMLElement = castTo gTypeHTMLElement "HTMLElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLElement\"]" gTypeHTMLElement' :: JSRef GType #else gTypeHTMLElement' = error "gTypeHTMLElement': only available in JavaScript"@@ -1881,7 +1881,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLEmbedElement = HTMLEmbedElement (JSRef HTMLEmbedElement)  unHTMLEmbedElement (HTMLEmbedElement o) = o@@ -1901,7 +1901,7 @@ castToHTMLEmbedElement :: GObjectClass obj => obj -> HTMLEmbedElement castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLEmbedElement\"]" gTypeHTMLEmbedElement' :: JSRef GType #else gTypeHTMLEmbedElement' = error "gTypeHTMLEmbedElement': only available in JavaScript"@@ -1912,7 +1912,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLFieldSetElement = HTMLFieldSetElement (JSRef HTMLFieldSetElement)  unHTMLFieldSetElement (HTMLFieldSetElement o) = o@@ -1932,7 +1932,7 @@ castToHTMLFieldSetElement :: GObjectClass obj => obj -> HTMLFieldSetElement castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLFieldSetElement\"]" gTypeHTMLFieldSetElement' :: JSRef GType #else gTypeHTMLFieldSetElement' = error "gTypeHTMLFieldSetElement': only available in JavaScript"@@ -1943,7 +1943,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLFontElement = HTMLFontElement (JSRef HTMLFontElement)  unHTMLFontElement (HTMLFontElement o) = o@@ -1963,7 +1963,7 @@ castToHTMLFontElement :: GObjectClass obj => obj -> HTMLFontElement castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLFontElement\"]" gTypeHTMLFontElement' :: JSRef GType #else gTypeHTMLFontElement' = error "gTypeHTMLFontElement': only available in JavaScript"@@ -1974,7 +1974,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLFormElement = HTMLFormElement (JSRef HTMLFormElement)  unHTMLFormElement (HTMLFormElement o) = o@@ -1994,7 +1994,7 @@ castToHTMLFormElement :: GObjectClass obj => obj -> HTMLFormElement castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLFormElement\"]" gTypeHTMLFormElement' :: JSRef GType #else gTypeHTMLFormElement' = error "gTypeHTMLFormElement': only available in JavaScript"@@ -2005,7 +2005,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLFrameElement = HTMLFrameElement (JSRef HTMLFrameElement)  unHTMLFrameElement (HTMLFrameElement o) = o@@ -2025,7 +2025,7 @@ castToHTMLFrameElement :: GObjectClass obj => obj -> HTMLFrameElement castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLFrameElement\"]" gTypeHTMLFrameElement' :: JSRef GType #else gTypeHTMLFrameElement' = error "gTypeHTMLFrameElement': only available in JavaScript"@@ -2036,7 +2036,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLFrameSetElement = HTMLFrameSetElement (JSRef HTMLFrameSetElement)  unHTMLFrameSetElement (HTMLFrameSetElement o) = o@@ -2056,7 +2056,7 @@ castToHTMLFrameSetElement :: GObjectClass obj => obj -> HTMLFrameSetElement castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLFrameSetElement\"]" gTypeHTMLFrameSetElement' :: JSRef GType #else gTypeHTMLFrameSetElement' = error "gTypeHTMLFrameSetElement': only available in JavaScript"@@ -2067,7 +2067,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLHRElement = HTMLHRElement (JSRef HTMLHRElement)  unHTMLHRElement (HTMLHRElement o) = o@@ -2087,7 +2087,7 @@ castToHTMLHRElement :: GObjectClass obj => obj -> HTMLHRElement castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLHRElement\"]" gTypeHTMLHRElement' :: JSRef GType #else gTypeHTMLHRElement' = error "gTypeHTMLHRElement': only available in JavaScript"@@ -2098,7 +2098,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLHeadElement = HTMLHeadElement (JSRef HTMLHeadElement)  unHTMLHeadElement (HTMLHeadElement o) = o@@ -2118,7 +2118,7 @@ castToHTMLHeadElement :: GObjectClass obj => obj -> HTMLHeadElement castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLHeadElement\"]" gTypeHTMLHeadElement' :: JSRef GType #else gTypeHTMLHeadElement' = error "gTypeHTMLHeadElement': only available in JavaScript"@@ -2129,7 +2129,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLHeadingElement = HTMLHeadingElement (JSRef HTMLHeadingElement)  unHTMLHeadingElement (HTMLHeadingElement o) = o@@ -2149,7 +2149,7 @@ castToHTMLHeadingElement :: GObjectClass obj => obj -> HTMLHeadingElement castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLHeadingElement\"]" gTypeHTMLHeadingElement' :: JSRef GType #else gTypeHTMLHeadingElement' = error "gTypeHTMLHeadingElement': only available in JavaScript"@@ -2160,7 +2160,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLHtmlElement = HTMLHtmlElement (JSRef HTMLHtmlElement)  unHTMLHtmlElement (HTMLHtmlElement o) = o@@ -2180,7 +2180,7 @@ castToHTMLHtmlElement :: GObjectClass obj => obj -> HTMLHtmlElement castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLHtmlElement\"]" gTypeHTMLHtmlElement' :: JSRef GType #else gTypeHTMLHtmlElement' = error "gTypeHTMLHtmlElement': only available in JavaScript"@@ -2191,7 +2191,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLIFrameElement = HTMLIFrameElement (JSRef HTMLIFrameElement)  unHTMLIFrameElement (HTMLIFrameElement o) = o@@ -2211,7 +2211,7 @@ castToHTMLIFrameElement :: GObjectClass obj => obj -> HTMLIFrameElement castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLIFrameElement\"]" gTypeHTMLIFrameElement' :: JSRef GType #else gTypeHTMLIFrameElement' = error "gTypeHTMLIFrameElement': only available in JavaScript"@@ -2222,7 +2222,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLImageElement = HTMLImageElement (JSRef HTMLImageElement)  unHTMLImageElement (HTMLImageElement o) = o@@ -2242,7 +2242,7 @@ castToHTMLImageElement :: GObjectClass obj => obj -> HTMLImageElement castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLImageElement\"]" gTypeHTMLImageElement' :: JSRef GType #else gTypeHTMLImageElement' = error "gTypeHTMLImageElement': only available in JavaScript"@@ -2253,7 +2253,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLInputElement = HTMLInputElement (JSRef HTMLInputElement)  unHTMLInputElement (HTMLInputElement o) = o@@ -2273,7 +2273,7 @@ castToHTMLInputElement :: GObjectClass obj => obj -> HTMLInputElement castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLInputElement\"]" gTypeHTMLInputElement' :: JSRef GType #else gTypeHTMLInputElement' = error "gTypeHTMLInputElement': only available in JavaScript"@@ -2284,7 +2284,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLKeygenElement = HTMLKeygenElement (JSRef HTMLKeygenElement)  unHTMLKeygenElement (HTMLKeygenElement o) = o@@ -2304,7 +2304,7 @@ castToHTMLKeygenElement :: GObjectClass obj => obj -> HTMLKeygenElement castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLKeygenElement\"]" gTypeHTMLKeygenElement' :: JSRef GType #else gTypeHTMLKeygenElement' = error "gTypeHTMLKeygenElement': only available in JavaScript"@@ -2315,7 +2315,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLLIElement = HTMLLIElement (JSRef HTMLLIElement)  unHTMLLIElement (HTMLLIElement o) = o@@ -2335,7 +2335,7 @@ castToHTMLLIElement :: GObjectClass obj => obj -> HTMLLIElement castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLLIElement\"]" gTypeHTMLLIElement' :: JSRef GType #else gTypeHTMLLIElement' = error "gTypeHTMLLIElement': only available in JavaScript"@@ -2346,7 +2346,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLLabelElement = HTMLLabelElement (JSRef HTMLLabelElement)  unHTMLLabelElement (HTMLLabelElement o) = o@@ -2366,7 +2366,7 @@ castToHTMLLabelElement :: GObjectClass obj => obj -> HTMLLabelElement castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLLabelElement\"]" gTypeHTMLLabelElement' :: JSRef GType #else gTypeHTMLLabelElement' = error "gTypeHTMLLabelElement': only available in JavaScript"@@ -2377,7 +2377,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLLegendElement = HTMLLegendElement (JSRef HTMLLegendElement)  unHTMLLegendElement (HTMLLegendElement o) = o@@ -2397,7 +2397,7 @@ castToHTMLLegendElement :: GObjectClass obj => obj -> HTMLLegendElement castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLLegendElement\"]" gTypeHTMLLegendElement' :: JSRef GType #else gTypeHTMLLegendElement' = error "gTypeHTMLLegendElement': only available in JavaScript"@@ -2408,7 +2408,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLLinkElement = HTMLLinkElement (JSRef HTMLLinkElement)  unHTMLLinkElement (HTMLLinkElement o) = o@@ -2428,7 +2428,7 @@ castToHTMLLinkElement :: GObjectClass obj => obj -> HTMLLinkElement castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLLinkElement\"]" gTypeHTMLLinkElement' :: JSRef GType #else gTypeHTMLLinkElement' = error "gTypeHTMLLinkElement': only available in JavaScript"@@ -2439,7 +2439,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLMapElement = HTMLMapElement (JSRef HTMLMapElement)  unHTMLMapElement (HTMLMapElement o) = o@@ -2459,7 +2459,7 @@ castToHTMLMapElement :: GObjectClass obj => obj -> HTMLMapElement castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLMapElement\"]" gTypeHTMLMapElement' :: JSRef GType #else gTypeHTMLMapElement' = error "gTypeHTMLMapElement': only available in JavaScript"@@ -2470,7 +2470,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLMarqueeElement = HTMLMarqueeElement (JSRef HTMLMarqueeElement)  unHTMLMarqueeElement (HTMLMarqueeElement o) = o@@ -2490,7 +2490,7 @@ castToHTMLMarqueeElement :: GObjectClass obj => obj -> HTMLMarqueeElement castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLMarqueeElement\"]" gTypeHTMLMarqueeElement' :: JSRef GType #else gTypeHTMLMarqueeElement' = error "gTypeHTMLMarqueeElement': only available in JavaScript"@@ -2501,7 +2501,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLMediaElement = HTMLMediaElement (JSRef HTMLMediaElement)  unHTMLMediaElement (HTMLMediaElement o) = o@@ -2521,7 +2521,7 @@ castToHTMLMediaElement :: GObjectClass obj => obj -> HTMLMediaElement castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLMediaElement\"]" gTypeHTMLMediaElement' :: JSRef GType #else gTypeHTMLMediaElement' = error "gTypeHTMLMediaElement': only available in JavaScript"@@ -2532,7 +2532,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLMenuElement = HTMLMenuElement (JSRef HTMLMenuElement)  unHTMLMenuElement (HTMLMenuElement o) = o@@ -2552,7 +2552,7 @@ castToHTMLMenuElement :: GObjectClass obj => obj -> HTMLMenuElement castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLMenuElement\"]" gTypeHTMLMenuElement' :: JSRef GType #else gTypeHTMLMenuElement' = error "gTypeHTMLMenuElement': only available in JavaScript"@@ -2563,7 +2563,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLMetaElement = HTMLMetaElement (JSRef HTMLMetaElement)  unHTMLMetaElement (HTMLMetaElement o) = o@@ -2583,7 +2583,7 @@ castToHTMLMetaElement :: GObjectClass obj => obj -> HTMLMetaElement castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLMetaElement\"]" gTypeHTMLMetaElement' :: JSRef GType #else gTypeHTMLMetaElement' = error "gTypeHTMLMetaElement': only available in JavaScript"@@ -2594,7 +2594,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLModElement = HTMLModElement (JSRef HTMLModElement)  unHTMLModElement (HTMLModElement o) = o@@ -2614,7 +2614,7 @@ castToHTMLModElement :: GObjectClass obj => obj -> HTMLModElement castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLModElement\"]" gTypeHTMLModElement' :: JSRef GType #else gTypeHTMLModElement' = error "gTypeHTMLModElement': only available in JavaScript"@@ -2625,7 +2625,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLOListElement = HTMLOListElement (JSRef HTMLOListElement)  unHTMLOListElement (HTMLOListElement o) = o@@ -2645,7 +2645,7 @@ castToHTMLOListElement :: GObjectClass obj => obj -> HTMLOListElement castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLOListElement\"]" gTypeHTMLOListElement' :: JSRef GType #else gTypeHTMLOListElement' = error "gTypeHTMLOListElement': only available in JavaScript"@@ -2656,7 +2656,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLObjectElement = HTMLObjectElement (JSRef HTMLObjectElement)  unHTMLObjectElement (HTMLObjectElement o) = o@@ -2676,7 +2676,7 @@ castToHTMLObjectElement :: GObjectClass obj => obj -> HTMLObjectElement castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLObjectElement\"]" gTypeHTMLObjectElement' :: JSRef GType #else gTypeHTMLObjectElement' = error "gTypeHTMLObjectElement': only available in JavaScript"@@ -2687,7 +2687,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLOptGroupElement = HTMLOptGroupElement (JSRef HTMLOptGroupElement)  unHTMLOptGroupElement (HTMLOptGroupElement o) = o@@ -2707,7 +2707,7 @@ castToHTMLOptGroupElement :: GObjectClass obj => obj -> HTMLOptGroupElement castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLOptGroupElement\"]" gTypeHTMLOptGroupElement' :: JSRef GType #else gTypeHTMLOptGroupElement' = error "gTypeHTMLOptGroupElement': only available in JavaScript"@@ -2718,7 +2718,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLOptionElement = HTMLOptionElement (JSRef HTMLOptionElement)  unHTMLOptionElement (HTMLOptionElement o) = o@@ -2738,7 +2738,7 @@ castToHTMLOptionElement :: GObjectClass obj => obj -> HTMLOptionElement castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLOptionElement\"]" gTypeHTMLOptionElement' :: JSRef GType #else gTypeHTMLOptionElement' = error "gTypeHTMLOptionElement': only available in JavaScript"@@ -2749,7 +2749,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLOptionsCollection = HTMLOptionsCollection (JSRef HTMLOptionsCollection)  unHTMLOptionsCollection (HTMLOptionsCollection o) = o@@ -2767,7 +2767,7 @@ castToHTMLOptionsCollection :: GObjectClass obj => obj -> HTMLOptionsCollection castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLOptionsCollection\"]" gTypeHTMLOptionsCollection' :: JSRef GType #else gTypeHTMLOptionsCollection' = error "gTypeHTMLOptionsCollection': only available in JavaScript"@@ -2778,7 +2778,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLParagraphElement = HTMLParagraphElement (JSRef HTMLParagraphElement)  unHTMLParagraphElement (HTMLParagraphElement o) = o@@ -2798,7 +2798,7 @@ castToHTMLParagraphElement :: GObjectClass obj => obj -> HTMLParagraphElement castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLParagraphElement\"]" gTypeHTMLParagraphElement' :: JSRef GType #else gTypeHTMLParagraphElement' = error "gTypeHTMLParagraphElement': only available in JavaScript"@@ -2809,7 +2809,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLParamElement = HTMLParamElement (JSRef HTMLParamElement)  unHTMLParamElement (HTMLParamElement o) = o@@ -2829,7 +2829,7 @@ castToHTMLParamElement :: GObjectClass obj => obj -> HTMLParamElement castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLParamElement\"]" gTypeHTMLParamElement' :: JSRef GType #else gTypeHTMLParamElement' = error "gTypeHTMLParamElement': only available in JavaScript"@@ -2840,7 +2840,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLPreElement = HTMLPreElement (JSRef HTMLPreElement)  unHTMLPreElement (HTMLPreElement o) = o@@ -2860,7 +2860,7 @@ castToHTMLPreElement :: GObjectClass obj => obj -> HTMLPreElement castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLPreElement\"]" gTypeHTMLPreElement' :: JSRef GType #else gTypeHTMLPreElement' = error "gTypeHTMLPreElement': only available in JavaScript"@@ -2871,7 +2871,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLQuoteElement = HTMLQuoteElement (JSRef HTMLQuoteElement)  unHTMLQuoteElement (HTMLQuoteElement o) = o@@ -2891,7 +2891,7 @@ castToHTMLQuoteElement :: GObjectClass obj => obj -> HTMLQuoteElement castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLQuoteElement\"]" gTypeHTMLQuoteElement' :: JSRef GType #else gTypeHTMLQuoteElement' = error "gTypeHTMLQuoteElement': only available in JavaScript"@@ -2902,7 +2902,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLScriptElement = HTMLScriptElement (JSRef HTMLScriptElement)  unHTMLScriptElement (HTMLScriptElement o) = o@@ -2922,7 +2922,7 @@ castToHTMLScriptElement :: GObjectClass obj => obj -> HTMLScriptElement castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLScriptElement\"]" gTypeHTMLScriptElement' :: JSRef GType #else gTypeHTMLScriptElement' = error "gTypeHTMLScriptElement': only available in JavaScript"@@ -2933,7 +2933,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLSelectElement = HTMLSelectElement (JSRef HTMLSelectElement)  unHTMLSelectElement (HTMLSelectElement o) = o@@ -2953,7 +2953,7 @@ castToHTMLSelectElement :: GObjectClass obj => obj -> HTMLSelectElement castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLSelectElement\"]" gTypeHTMLSelectElement' :: JSRef GType #else gTypeHTMLSelectElement' = error "gTypeHTMLSelectElement': only available in JavaScript"@@ -2964,7 +2964,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLStyleElement = HTMLStyleElement (JSRef HTMLStyleElement)  unHTMLStyleElement (HTMLStyleElement o) = o@@ -2984,7 +2984,7 @@ castToHTMLStyleElement :: GObjectClass obj => obj -> HTMLStyleElement castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLStyleElement\"]" gTypeHTMLStyleElement' :: JSRef GType #else gTypeHTMLStyleElement' = error "gTypeHTMLStyleElement': only available in JavaScript"@@ -2995,7 +2995,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTableCaptionElement = HTMLTableCaptionElement (JSRef HTMLTableCaptionElement)  unHTMLTableCaptionElement (HTMLTableCaptionElement o) = o@@ -3015,7 +3015,7 @@ castToHTMLTableCaptionElement :: GObjectClass obj => obj -> HTMLTableCaptionElement castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTableCaptionElement\"]" gTypeHTMLTableCaptionElement' :: JSRef GType #else gTypeHTMLTableCaptionElement' = error "gTypeHTMLTableCaptionElement': only available in JavaScript"@@ -3026,7 +3026,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTableCellElement = HTMLTableCellElement (JSRef HTMLTableCellElement)  unHTMLTableCellElement (HTMLTableCellElement o) = o@@ -3046,7 +3046,7 @@ castToHTMLTableCellElement :: GObjectClass obj => obj -> HTMLTableCellElement castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTableCellElement\"]" gTypeHTMLTableCellElement' :: JSRef GType #else gTypeHTMLTableCellElement' = error "gTypeHTMLTableCellElement': only available in JavaScript"@@ -3057,7 +3057,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTableColElement = HTMLTableColElement (JSRef HTMLTableColElement)  unHTMLTableColElement (HTMLTableColElement o) = o@@ -3077,7 +3077,7 @@ castToHTMLTableColElement :: GObjectClass obj => obj -> HTMLTableColElement castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTableColElement\"]" gTypeHTMLTableColElement' :: JSRef GType #else gTypeHTMLTableColElement' = error "gTypeHTMLTableColElement': only available in JavaScript"@@ -3088,7 +3088,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTableElement = HTMLTableElement (JSRef HTMLTableElement)  unHTMLTableElement (HTMLTableElement o) = o@@ -3108,7 +3108,7 @@ castToHTMLTableElement :: GObjectClass obj => obj -> HTMLTableElement castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTableElement\"]" gTypeHTMLTableElement' :: JSRef GType #else gTypeHTMLTableElement' = error "gTypeHTMLTableElement': only available in JavaScript"@@ -3119,7 +3119,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTableRowElement = HTMLTableRowElement (JSRef HTMLTableRowElement)  unHTMLTableRowElement (HTMLTableRowElement o) = o@@ -3139,7 +3139,7 @@ castToHTMLTableRowElement :: GObjectClass obj => obj -> HTMLTableRowElement castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTableRowElement\"]" gTypeHTMLTableRowElement' :: JSRef GType #else gTypeHTMLTableRowElement' = error "gTypeHTMLTableRowElement': only available in JavaScript"@@ -3150,7 +3150,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTableSectionElement = HTMLTableSectionElement (JSRef HTMLTableSectionElement)  unHTMLTableSectionElement (HTMLTableSectionElement o) = o@@ -3170,7 +3170,7 @@ castToHTMLTableSectionElement :: GObjectClass obj => obj -> HTMLTableSectionElement castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTableSectionElement\"]" gTypeHTMLTableSectionElement' :: JSRef GType #else gTypeHTMLTableSectionElement' = error "gTypeHTMLTableSectionElement': only available in JavaScript"@@ -3181,7 +3181,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTextAreaElement = HTMLTextAreaElement (JSRef HTMLTextAreaElement)  unHTMLTextAreaElement (HTMLTextAreaElement o) = o@@ -3201,7 +3201,7 @@ castToHTMLTextAreaElement :: GObjectClass obj => obj -> HTMLTextAreaElement castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTextAreaElement\"]" gTypeHTMLTextAreaElement' :: JSRef GType #else gTypeHTMLTextAreaElement' = error "gTypeHTMLTextAreaElement': only available in JavaScript"@@ -3212,7 +3212,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLTitleElement = HTMLTitleElement (JSRef HTMLTitleElement)  unHTMLTitleElement (HTMLTitleElement o) = o@@ -3232,7 +3232,7 @@ castToHTMLTitleElement :: GObjectClass obj => obj -> HTMLTitleElement castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLTitleElement\"]" gTypeHTMLTitleElement' :: JSRef GType #else gTypeHTMLTitleElement' = error "gTypeHTMLTitleElement': only available in JavaScript"@@ -3243,7 +3243,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLUListElement = HTMLUListElement (JSRef HTMLUListElement)  unHTMLUListElement (HTMLUListElement o) = o@@ -3263,7 +3263,7 @@ castToHTMLUListElement :: GObjectClass obj => obj -> HTMLUListElement castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLUListElement\"]" gTypeHTMLUListElement' :: JSRef GType #else gTypeHTMLUListElement' = error "gTypeHTMLUListElement': only available in JavaScript"@@ -3274,7 +3274,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype HTMLVideoElement = HTMLVideoElement (JSRef HTMLVideoElement)  unHTMLVideoElement (HTMLVideoElement o) = o@@ -3295,7 +3295,7 @@ castToHTMLVideoElement :: GObjectClass obj => obj -> HTMLVideoElement castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"HTMLVideoElement\"]" gTypeHTMLVideoElement' :: JSRef GType #else gTypeHTMLVideoElement' = error "gTypeHTMLVideoElement': only available in JavaScript"@@ -3306,7 +3306,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype History = History (JSRef History)  unHistory (History o) = o@@ -3323,7 +3323,7 @@ castToHistory :: GObjectClass obj => obj -> History castToHistory = castTo gTypeHistory "History" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"History\"]" gTypeHistory' :: JSRef GType #else gTypeHistory' = error "gTypeHistory': only available in JavaScript"@@ -3334,7 +3334,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype KeyboardEvent = KeyboardEvent (JSRef KeyboardEvent)  unKeyboardEvent (KeyboardEvent o) = o@@ -3353,7 +3353,7 @@ castToKeyboardEvent :: GObjectClass obj => obj -> KeyboardEvent castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"KeyboardEvent\"]" gTypeKeyboardEvent' :: JSRef GType #else gTypeKeyboardEvent' = error "gTypeKeyboardEvent': only available in JavaScript"@@ -3363,7 +3363,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Location = Location (JSRef Location)  unLocation (Location o) = o@@ -3380,7 +3380,7 @@ castToLocation :: GObjectClass obj => obj -> Location castToLocation = castTo gTypeLocation "Location" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Location\"]" gTypeLocation' :: JSRef GType #else gTypeLocation' = error "gTypeLocation': only available in JavaScript"@@ -3391,7 +3391,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype MediaError = MediaError (JSRef MediaError)  unMediaError (MediaError o) = o@@ -3408,7 +3408,7 @@ castToMediaError :: GObjectClass obj => obj -> MediaError castToMediaError = castTo gTypeMediaError "MediaError" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"MediaError\"]" gTypeMediaError' :: JSRef GType #else gTypeMediaError' = error "gTypeMediaError': only available in JavaScript"@@ -3419,7 +3419,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype MediaList = MediaList (JSRef MediaList)  unMediaList (MediaList o) = o@@ -3436,7 +3436,7 @@ castToMediaList :: GObjectClass obj => obj -> MediaList castToMediaList = castTo gTypeMediaList "MediaList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"MediaList\"]" gTypeMediaList' :: JSRef GType #else gTypeMediaList' = error "gTypeMediaList': only available in JavaScript"@@ -3447,7 +3447,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype MediaQueryList = MediaQueryList (JSRef MediaQueryList)  unMediaQueryList (MediaQueryList o) = o@@ -3464,7 +3464,7 @@ castToMediaQueryList :: GObjectClass obj => obj -> MediaQueryList castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"MediaQueryList\"]" gTypeMediaQueryList' :: JSRef GType #else gTypeMediaQueryList' = error "gTypeMediaQueryList': only available in JavaScript"@@ -3475,7 +3475,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype MessagePort = MessagePort (JSRef MessagePort)  unMessagePort (MessagePort o) = o@@ -3492,7 +3492,7 @@ castToMessagePort :: GObjectClass obj => obj -> MessagePort castToMessagePort = castTo gTypeMessagePort "MessagePort" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"MessagePort\"]" gTypeMessagePort' :: JSRef GType #else gTypeMessagePort' = error "gTypeMessagePort': only available in JavaScript"@@ -3503,7 +3503,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype MouseEvent = MouseEvent (JSRef MouseEvent)  unMouseEvent (MouseEvent o) = o@@ -3522,7 +3522,7 @@ castToMouseEvent :: GObjectClass obj => obj -> MouseEvent castToMouseEvent = castTo gTypeMouseEvent "MouseEvent" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"MouseEvent\"]" gTypeMouseEvent' :: JSRef GType #else gTypeMouseEvent' = error "gTypeMouseEvent': only available in JavaScript"@@ -3533,7 +3533,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype NamedNodeMap = NamedNodeMap (JSRef NamedNodeMap)  unNamedNodeMap (NamedNodeMap o) = o@@ -3550,7 +3550,7 @@ castToNamedNodeMap :: GObjectClass obj => obj -> NamedNodeMap castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"NamedNodeMap\"]" gTypeNamedNodeMap' :: JSRef GType #else gTypeNamedNodeMap' = error "gTypeNamedNodeMap': only available in JavaScript"@@ -3561,7 +3561,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Navigator = Navigator (JSRef Navigator)  unNavigator (Navigator o) = o@@ -3578,7 +3578,7 @@ castToNavigator :: GObjectClass obj => obj -> Navigator castToNavigator = castTo gTypeNavigator "Navigator" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Navigator\"]" gTypeNavigator' :: JSRef GType #else gTypeNavigator' = error "gTypeNavigator': only available in JavaScript"@@ -3589,7 +3589,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Node = Node (JSRef Node)  unNode (Node o) = o@@ -3606,7 +3606,7 @@ castToNode :: GObjectClass obj => obj -> Node castToNode = castTo gTypeNode "Node" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Node\"]" gTypeNode' :: JSRef GType #else gTypeNode' = error "gTypeNode': only available in JavaScript"@@ -3617,7 +3617,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype NodeFilter = NodeFilter (JSRef NodeFilter)  unNodeFilter (NodeFilter o) = o@@ -3634,7 +3634,7 @@ castToNodeFilter :: GObjectClass obj => obj -> NodeFilter castToNodeFilter = castTo gTypeNodeFilter "NodeFilter" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"NodeFilter\"]" gTypeNodeFilter' :: JSRef GType #else gTypeNodeFilter' = error "gTypeNodeFilter': only available in JavaScript"@@ -3645,7 +3645,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype NodeIterator = NodeIterator (JSRef NodeIterator)  unNodeIterator (NodeIterator o) = o@@ -3662,7 +3662,7 @@ castToNodeIterator :: GObjectClass obj => obj -> NodeIterator castToNodeIterator = castTo gTypeNodeIterator "NodeIterator" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"NodeIterator\"]" gTypeNodeIterator' :: JSRef GType #else gTypeNodeIterator' = error "gTypeNodeIterator': only available in JavaScript"@@ -3673,7 +3673,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype NodeList = NodeList (JSRef NodeList)  unNodeList (NodeList o) = o@@ -3690,7 +3690,7 @@ castToNodeList :: GObjectClass obj => obj -> NodeList castToNodeList = castTo gTypeNodeList "NodeList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"NodeList\"]" gTypeNodeList' :: JSRef GType #else gTypeNodeList' = error "gTypeNodeList': only available in JavaScript"@@ -3701,7 +3701,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype ProcessingInstruction = ProcessingInstruction (JSRef ProcessingInstruction)  unProcessingInstruction (ProcessingInstruction o) = o@@ -3719,7 +3719,7 @@ castToProcessingInstruction :: GObjectClass obj => obj -> ProcessingInstruction castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"ProcessingInstruction\"]" gTypeProcessingInstruction' :: JSRef GType #else gTypeProcessingInstruction' = error "gTypeProcessingInstruction': only available in JavaScript"@@ -3730,7 +3730,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMRange = DOMRange (JSRef DOMRange)  unDOMRange (DOMRange o) = o@@ -3747,7 +3747,7 @@ castToDOMRange :: GObjectClass obj => obj -> DOMRange castToDOMRange = castTo gTypeDOMRange "DOMRange" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMRange\"]" gTypeDOMRange' :: JSRef GType #else gTypeDOMRange' = error "gTypeDOMRange': only available in JavaScript"@@ -3758,7 +3758,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype DOMScreen = DOMScreen (JSRef DOMScreen)  unDOMScreen (DOMScreen o) = o@@ -3775,7 +3775,7 @@ castToDOMScreen :: GObjectClass obj => obj -> DOMScreen castToDOMScreen = castTo gTypeDOMScreen "DOMScreen" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"DOMScreen\"]" gTypeDOMScreen' :: JSRef GType #else gTypeDOMScreen' = error "gTypeDOMScreen': only available in JavaScript"@@ -3786,7 +3786,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Storage = Storage (JSRef Storage)  unStorage (Storage o) = o@@ -3803,7 +3803,7 @@ castToStorage :: GObjectClass obj => obj -> Storage castToStorage = castTo gTypeStorage "Storage" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Storage\"]" gTypeStorage' :: JSRef GType #else gTypeStorage' = error "gTypeStorage': only available in JavaScript"@@ -3814,7 +3814,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype StorageInfo = StorageInfo (JSRef StorageInfo)  unStorageInfo (StorageInfo o) = o@@ -3831,7 +3831,7 @@ castToStorageInfo :: GObjectClass obj => obj -> StorageInfo castToStorageInfo = castTo gTypeStorageInfo "StorageInfo" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"StorageInfo\"]" gTypeStorageInfo' :: JSRef GType #else gTypeStorageInfo' = error "gTypeStorageInfo': only available in JavaScript"@@ -3841,7 +3841,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype StyleMedia = StyleMedia (JSRef StyleMedia)  unStyleMedia (StyleMedia o) = o@@ -3858,7 +3858,7 @@ castToStyleMedia :: GObjectClass obj => obj -> StyleMedia castToStyleMedia = castTo gTypeStyleMedia "StyleMedia" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"StyleMedia\"]" gTypeStyleMedia' :: JSRef GType #else gTypeStyleMedia' = error "gTypeStyleMedia': only available in JavaScript"@@ -3869,7 +3869,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype StyleSheet = StyleSheet (JSRef StyleSheet)  unStyleSheet (StyleSheet o) = o@@ -3886,7 +3886,7 @@ castToStyleSheet :: GObjectClass obj => obj -> StyleSheet castToStyleSheet = castTo gTypeStyleSheet "StyleSheet" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"StyleSheet\"]" gTypeStyleSheet' :: JSRef GType #else gTypeStyleSheet' = error "gTypeStyleSheet': only available in JavaScript"@@ -3897,7 +3897,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype StyleSheetList = StyleSheetList (JSRef StyleSheetList)  unStyleSheetList (StyleSheetList o) = o@@ -3914,7 +3914,7 @@ castToStyleSheetList :: GObjectClass obj => obj -> StyleSheetList castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"StyleSheetList\"]" gTypeStyleSheetList' :: JSRef GType #else gTypeStyleSheetList' = error "gTypeStyleSheetList': only available in JavaScript"@@ -3925,7 +3925,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype Text = Text (JSRef Text)  unText (Text o) = o@@ -3944,7 +3944,7 @@ castToText :: GObjectClass obj => obj -> Text castToText = castTo gTypeText "Text" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"Text\"]" gTypeText' :: JSRef GType #else gTypeText' = error "gTypeText': only available in JavaScript"@@ -3955,7 +3955,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype TimeRanges = TimeRanges (JSRef TimeRanges)  unTimeRanges (TimeRanges o) = o@@ -3972,7 +3972,7 @@ castToTimeRanges :: GObjectClass obj => obj -> TimeRanges castToTimeRanges = castTo gTypeTimeRanges "TimeRanges" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"TimeRanges\"]" gTypeTimeRanges' :: JSRef GType #else gTypeTimeRanges' = error "gTypeTimeRanges': only available in JavaScript"@@ -3983,7 +3983,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype TreeWalker = TreeWalker (JSRef TreeWalker)  unTreeWalker (TreeWalker o) = o@@ -4000,7 +4000,7 @@ castToTreeWalker :: GObjectClass obj => obj -> TreeWalker castToTreeWalker = castTo gTypeTreeWalker "TreeWalker" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"TreeWalker\"]" gTypeTreeWalker' :: JSRef GType #else gTypeTreeWalker' = error "gTypeTreeWalker': only available in JavaScript"@@ -4011,7 +4011,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype UIEvent = UIEvent (JSRef UIEvent)  unUIEvent (UIEvent o) = o@@ -4029,7 +4029,7 @@ castToUIEvent :: GObjectClass obj => obj -> UIEvent castToUIEvent = castTo gTypeUIEvent "UIEvent" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"UIEvent\"]" gTypeUIEvent' :: JSRef GType #else gTypeUIEvent' = error "gTypeUIEvent': only available in JavaScript"@@ -4040,7 +4040,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype ValidityState = ValidityState (JSRef ValidityState)  unValidityState (ValidityState o) = o@@ -4057,7 +4057,7 @@ castToValidityState :: GObjectClass obj => obj -> ValidityState castToValidityState = castTo gTypeValidityState "ValidityState" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"ValidityState\"]" gTypeValidityState' :: JSRef GType #else gTypeValidityState' = error "gTypeValidityState': only available in JavaScript"@@ -4068,7 +4068,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype WebKitNamedFlow = WebKitNamedFlow (JSRef WebKitNamedFlow)  unWebKitNamedFlow (WebKitNamedFlow o) = o@@ -4085,7 +4085,7 @@ castToWebKitNamedFlow :: GObjectClass obj => obj -> WebKitNamedFlow castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"WebKitNamedFlow\"]" gTypeWebKitNamedFlow' :: JSRef GType #else gTypeWebKitNamedFlow' = error "gTypeWebKitNamedFlow': only available in JavaScript"@@ -4096,7 +4096,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype WebKitPoint = WebKitPoint (JSRef WebKitPoint)  unWebKitPoint (WebKitPoint o) = o@@ -4113,7 +4113,7 @@ castToWebKitPoint :: GObjectClass obj => obj -> WebKitPoint castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"WebKitPoint\"]" gTypeWebKitPoint' :: JSRef GType #else gTypeWebKitPoint' = error "gTypeWebKitPoint': only available in JavaScript"@@ -4124,7 +4124,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype XPathExpression = XPathExpression (JSRef XPathExpression)  unXPathExpression (XPathExpression o) = o@@ -4141,7 +4141,7 @@ castToXPathExpression :: GObjectClass obj => obj -> XPathExpression castToXPathExpression = castTo gTypeXPathExpression "XPathExpression" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"XPathExpression\"]" gTypeXPathExpression' :: JSRef GType #else gTypeXPathExpression' = error "gTypeXPathExpression': only available in JavaScript"@@ -4152,7 +4152,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype XPathNSResolver = XPathNSResolver (JSRef XPathNSResolver)  unXPathNSResolver (XPathNSResolver o) = o@@ -4169,7 +4169,7 @@ castToXPathNSResolver :: GObjectClass obj => obj -> XPathNSResolver castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"XPathNSResolver\"]" gTypeXPathNSResolver' :: JSRef GType #else gTypeXPathNSResolver' = error "gTypeXPathNSResolver': only available in JavaScript"@@ -4180,7 +4180,7 @@ #endif  -#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) newtype XPathResult = XPathResult (JSRef XPathResult)  unXPathResult (XPathResult o) = o@@ -4197,7 +4197,7 @@ castToXPathResult :: GObjectClass obj => obj -> XPathResult castToXPathResult = castTo gTypeXPathResult "XPathResult" -#ifdef __GHCJS__+#ifdef ghcjs_HOST_OS foreign import javascript unsafe "window[\"XPathResult\"]" gTypeXPathResult' :: JSRef GType #else gTypeXPathResult' = error "gTypeXPathResult': only available in JavaScript"
src/GHCJS/DOM/UIEvent.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.UIEvent        (ghcjs_dom_ui_event_init_ui_event, uiEventInitUIEvent,@@ -27,7 +27,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "$1[\"initUIEvent\"]($2, $3, $4,\n$5, $6)"         ghcjs_dom_ui_event_init_ui_event ::@@ -52,7 +52,7 @@       detail  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"view\"]"         ghcjs_dom_ui_event_get_view ::         JSRef UIEvent -> IO (JSRef DOMWindow)@@ -68,7 +68,7 @@       (ghcjs_dom_ui_event_get_view (unUIEvent (toUIEvent self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"detail\"]"         ghcjs_dom_ui_event_get_detail :: JSRef UIEvent -> IO Int #else @@ -81,7 +81,7 @@   = ghcjs_dom_ui_event_get_detail (unUIEvent (toUIEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"keyCode\"]"         ghcjs_dom_ui_event_get_key_code :: JSRef UIEvent -> IO Int #else @@ -94,7 +94,7 @@   = ghcjs_dom_ui_event_get_key_code (unUIEvent (toUIEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"charCode\"]"         ghcjs_dom_ui_event_get_char_code :: JSRef UIEvent -> IO Int #else @@ -107,7 +107,7 @@   = ghcjs_dom_ui_event_get_char_code (unUIEvent (toUIEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"layerX\"]"         ghcjs_dom_ui_event_get_layer_x :: JSRef UIEvent -> IO Int #else @@ -120,7 +120,7 @@   = ghcjs_dom_ui_event_get_layer_x (unUIEvent (toUIEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"layerY\"]"         ghcjs_dom_ui_event_get_layer_y :: JSRef UIEvent -> IO Int #else @@ -133,7 +133,7 @@   = ghcjs_dom_ui_event_get_layer_y (unUIEvent (toUIEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pageX\"]"         ghcjs_dom_ui_event_get_page_x :: JSRef UIEvent -> IO Int #else @@ -146,7 +146,7 @@   = ghcjs_dom_ui_event_get_page_x (unUIEvent (toUIEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"pageY\"]"         ghcjs_dom_ui_event_get_page_y :: JSRef UIEvent -> IO Int #else @@ -159,7 +159,7 @@   = ghcjs_dom_ui_event_get_page_y (unUIEvent (toUIEvent self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"which\"]"         ghcjs_dom_ui_event_get_which :: JSRef UIEvent -> IO Int #else
src/GHCJS/DOM/ValidityState.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.ValidityState        (ghcjs_dom_validity_state_get_value_missing,@@ -36,7 +36,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"valueMissing\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_value_missing ::         JSRef ValidityState -> IO Bool@@ -53,7 +53,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"typeMismatch\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_type_mismatch ::         JSRef ValidityState -> IO Bool@@ -70,7 +70,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"patternMismatch\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_pattern_mismatch ::@@ -88,7 +88,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"tooLong\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_too_long ::         JSRef ValidityState -> IO Bool@@ -105,7 +105,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"rangeUnderflow\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_range_underflow ::         JSRef ValidityState -> IO Bool@@ -122,7 +122,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"rangeOverflow\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_range_overflow ::         JSRef ValidityState -> IO Bool@@ -139,7 +139,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"stepMismatch\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_step_mismatch ::         JSRef ValidityState -> IO Bool@@ -156,7 +156,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"badInput\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_bad_input ::         JSRef ValidityState -> IO Bool@@ -173,7 +173,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"customError\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_custom_error ::         JSRef ValidityState -> IO Bool@@ -190,7 +190,7 @@       (unValidityState (toValidityState self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"valid\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_valid ::         JSRef ValidityState -> IO Bool
src/GHCJS/DOM/WebKitNamedFlow.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.WebKitNamedFlow        (ghcjs_dom_webkit_named_flow_get_regions_by_content,@@ -30,7 +30,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getRegionsByContent\"]($2)"         ghcjs_dom_webkit_named_flow_get_regions_by_content ::         JSRef WebKitNamedFlow -> JSRef Node -> IO (JSRef NodeList)@@ -51,7 +51,7 @@          (maybe jsNull (unNode . toNode) contentNode))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getRegions\"]()"         ghcjs_dom_webkit_named_flow_get_regions ::         JSRef WebKitNamedFlow -> IO (JSRef NodeList)@@ -69,7 +69,7 @@          (unWebKitNamedFlow (toWebKitNamedFlow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"getContent\"]()"         ghcjs_dom_webkit_named_flow_get_content ::         JSRef WebKitNamedFlow -> IO (JSRef NodeList)@@ -87,7 +87,7 @@          (unWebKitNamedFlow (toWebKitNamedFlow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"         ghcjs_dom_webkit_named_flow_dispatch_event ::@@ -107,7 +107,7 @@       (maybe jsNull (unEvent . toEvent) event)  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_webkit_named_flow_get_name ::         JSRef WebKitNamedFlow -> IO JSString@@ -125,7 +125,7 @@          (unWebKitNamedFlow (toWebKitNamedFlow self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"overset\"] ? 1 : 0)"         ghcjs_dom_webkit_named_flow_get_overset ::         JSRef WebKitNamedFlow -> IO Bool@@ -142,7 +142,7 @@       (unWebKitNamedFlow (toWebKitNamedFlow self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"firstEmptyRegionIndex\"]"         ghcjs_dom_webkit_named_flow_get_first_empty_region_index ::         JSRef WebKitNamedFlow -> IO Int
src/GHCJS/DOM/WebKitPoint.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.WebKitPoint        (ghcjs_dom_webkit_point_set_x, webKitPointSetX,@@ -23,7 +23,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"x\"] = $2;"         ghcjs_dom_webkit_point_set_x :: JSRef WebKitPoint -> Float -> IO () #else @@ -37,7 +37,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"x\"]"         ghcjs_dom_webkit_point_get_x :: JSRef WebKitPoint -> IO Float #else @@ -50,7 +50,7 @@   = ghcjs_dom_webkit_point_get_x (unWebKitPoint (toWebKitPoint self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"y\"] = $2;"         ghcjs_dom_webkit_point_set_y :: JSRef WebKitPoint -> Float -> IO () #else @@ -64,7 +64,7 @@       val  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"y\"]"         ghcjs_dom_webkit_point_get_y :: JSRef WebKitPoint -> IO Float #else
src/GHCJS/DOM/XPathExpression.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.XPathExpression        (ghcjs_dom_xpath_expression_evaluate, xPathExpressionEvaluate,@@ -21,7 +21,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"evaluate\"]($2, $3, $4)"         ghcjs_dom_xpath_expression_evaluate ::         JSRef XPathExpression ->
src/GHCJS/DOM/XPathNSResolver.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.XPathNSResolver        (ghcjs_dom_xpath_ns_resolver_lookup_namespace_uri,@@ -22,7 +22,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"         ghcjs_dom_xpath_ns_resolver_lookup_namespace_uri ::         JSRef XPathNSResolver -> JSString -> IO JSString
src/GHCJS/DOM/XPathResult.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE CPP #-}-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.XPathResult        (ghcjs_dom_xpath_result_iterate_next, xPathResultIterateNext,@@ -36,7 +36,7 @@   -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"iterateNext\"]()"         ghcjs_dom_xpath_result_iterate_next ::         JSRef XPathResult -> IO (JSRef Node)@@ -54,7 +54,7 @@          (unXPathResult (toXPathResult self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"snapshotItem\"]($2)"         ghcjs_dom_xpath_result_snapshot_item ::         JSRef XPathResult -> Word -> IO (JSRef Node)@@ -83,7 +83,7 @@ cFIRST_ORDERED_NODE_TYPE = 9  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"resultType\"]"         ghcjs_dom_xpath_result_get_result_type ::         JSRef XPathResult -> IO Word@@ -99,7 +99,7 @@       (unXPathResult (toXPathResult self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"numberValue\"]"         ghcjs_dom_xpath_result_get_number_value ::         JSRef XPathResult -> IO Double@@ -116,7 +116,7 @@       (unXPathResult (toXPathResult self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"stringValue\"]"         ghcjs_dom_xpath_result_get_string_value ::         JSRef XPathResult -> IO JSString@@ -134,7 +134,7 @@          (unXPathResult (toXPathResult self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "($1[\"booleanValue\"] ? 1 : 0)"         ghcjs_dom_xpath_result_get_boolean_value ::         JSRef XPathResult -> IO Bool@@ -151,7 +151,7 @@       (unXPathResult (toXPathResult self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"singleNodeValue\"]"         ghcjs_dom_xpath_result_get_single_node_value ::         JSRef XPathResult -> IO (JSRef Node)@@ -169,7 +169,7 @@          (unXPathResult (toXPathResult self)))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe         "($1[\"invalidIteratorState\"] ? 1 : 0)"         ghcjs_dom_xpath_result_get_invalid_iterator_state ::@@ -187,7 +187,7 @@       (unXPathResult (toXPathResult self))  -#ifdef __GHCJS__ +#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"snapshotLength\"]"         ghcjs_dom_xpath_result_get_snapshot_length ::         JSRef XPathResult -> IO Word