Add noX :: Maybe X; noX = Nothing functions

domconv-webkit-jsaddle.hs

@@ -123,7 +123,7 @@ makeWebkitBindings idl args = do
     ffiExports name allParents =
             "  , " ++ name ++ "(" ++ name ++ "), un" ++ name
             ++ (if name `elem` allParents then ", Is" ++ name ++ ", to" ++ name else "")
-            ++ ", " ++ "gType" ++ name
+            ++ ", no" ++ name ++ ", gType" ++ name
 
     ffiTypes hh prntmap allParents =
         forM_ prntmap $ \(n, parents) -> hPutStrLn hh $
@@ -176,6 +176,10 @@ makeWebkitBindings idl args = do
             ++ "  typeGType _ = gType" ++ name ++ "\n"
             ++ "  {-# INLINE typeGType #-}\n\n"
 
+            ++ "no" ++ name ++ " :: Maybe " ++ name ++ "\n"
+            ++ "no" ++ name ++ " = Nothing\n"
+            ++ "{-# INLINE no" ++ name ++ " #-}\n\n"
+
             ++ "gType" ++ name ++ " :: JSM GType\n"
             ++ "gType" ++ name ++ " = GType . Object <$> jsg \"" ++ jsname name ++ "\"\n"
     oldWebKitGuard name s | webkitTypeGuard name /= "webkit-dom" = "#ifndef USE_OLD_WEBKIT\n" ++ s ++ "#endif\n"

domconv-webkit-jsffi.hs

@@ -124,7 +124,7 @@ makeWebkitBindings idl args = do
     ffiExports name allParents =
             "  , " ++ name ++ "(" ++ name ++ "), un" ++ name
             ++ (if name `elem` allParents then ", Is" ++ name ++ ", to" ++ name else "")
-            ++ ", " ++ "gType" ++ name
+            ++ ", no" ++ name ++ ", gType" ++ name
 
     jsffiTypes hh prntmap allParents =
         forM_ prntmap $ \(n, parents) -> hPutStrLn hh $
@@ -172,6 +172,10 @@ makeWebkitBindings idl args = do
             ++ "  typeGType _ = gType" ++ name ++ "\n"
             ++ "  {-# INLINE typeGType #-}\n"
 
+            ++ "no" ++ name ++ " :: Maybe " ++ name ++ "\n"
+            ++ "no" ++ name ++ " = Nothing\n"
+            ++ "{-# INLINE no" ++ name ++ " #-}\n\n"
+
             ++ "foreign import javascript unsafe \"window[\\\"" ++ jsname name ++ "\\\"]\" gType" ++ name ++ " :: GType\n"
     webkitTypes hh prntmap allParents =
         forM_ prntmap $ \(n, parents) -> hPutStrLn hh $