Removed PFromJSRef (Maybe a) instance

Author: achirkin

GHCJS/Marshal/Pure.hs

@@ -92,11 +92,6 @@ instance PFromJSVal Float  where pFromJSVal x = F# (jsvalToFloat x)
 instance PFromJSVal Double where pFromJSVal x = D# (jsvalToDouble x)
                                  {-# INLINE pFromJSVal #-}
 
-instance PFromJSVal a => PFromJSVal (Maybe a) where
-    pFromJSVal x | isUndefined x || isNull x = Nothing
-    pFromJSVal x = Just (pFromJSVal x)
-    {-# INLINE pFromJSVal #-}
-
 instance PToJSVal JSVal     where pToJSVal = id
                                   {-# INLINE pToJSVal #-}
 instance PToJSVal JSString  where pToJSVal          = jsval

GHCJS/Nullable.hs

@@ -3,13 +3,16 @@ module GHCJS.Nullable ( Nullable(..)
                       , maybeToNullable
                       ) where
 
+import GHCJS.Foreign (isTruthy)
 import GHCJS.Prim (JSVal(..))
 import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
 
 newtype Nullable a = Nullable JSVal
 
 nullableToMaybe :: PFromJSVal a => Nullable a -> Maybe a
-nullableToMaybe (Nullable r) = pFromJSVal r
+nullableToMaybe (Nullable r) = if (isTruthy r)
+                               then Just $ pFromJSVal r
+                               else Nothing
 {-# INLINE nullableToMaybe #-}
 
 maybeToNullable :: PToJSVal a => Maybe a -> Nullable a

ghcjs-base.cabal

@@ -1,5 +1,5 @@
 name:                ghcjs-base
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            base library for GHCJS
 homepage:            http://github.com/ghcjs/ghcjs-base
 license:             MIT