Add Nullable

Author: hamishmack

GHCJS/Nullable.hs

@@ -0,0 +1,19 @@
+module GHCJS.Nullable ( Nullable(..)
+                      , nullableToMaybe
+                      , maybeToNullable
+                      ) where
+
+import GHCJS.Prim (JSRef(..))
+import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))
+
+newtype Nullable a = Nullable JSRef
+
+nullableToMaybe :: PFromJSRef a => Nullable a -> Maybe a
+nullableToMaybe (Nullable r) = pFromJSRef r
+{-# INLINE nullableToMaybe #-}
+
+maybeToNullable :: PToJSRef a => Maybe a -> Nullable a
+maybeToNullable = Nullable . pToJSRef
+{-# INLINE maybeToNullable #-}
+
+

ghcjs-base.cabal

@@ -70,6 +70,7 @@ library
                    GHCJS.Marshal
                    GHCJS.Marshal.Internal
                    GHCJS.Marshal.Pure
+                   GHCJS.Nullable
                    GHCJS.Types
                    JavaScript.Array
                    JavaScript.Array.Internal