module GHCJS.Internal.Types ( IsJSVal(..)
                            , jsval
                            , MutabilityType(..)
                            , Mutable
                            , Immutable
                            , IsItMutable(..)
                            , Mutability
                            ) where

import Language.Javascript.JSaddle.Types
import Language.Javascript.JSaddle.Native.Internal (stringToValue)

instance IsJSVal JSString where
  jsval_ :: JSString -> GHCJSPure JSVal
jsval_ JSString
a = JSM JSVal -> GHCJSPure JSVal
forall a. JSM a -> GHCJSPure a
GHCJSPure (JSM JSVal -> GHCJSPure JSVal) -> JSM JSVal -> GHCJSPure JSVal
forall a b. (a -> b) -> a -> b
$ JSString -> JSM JSVal
stringToValue JSString
a
  {-# INLINE jsval_ #-}