module Language.Javascript.JSaddle.String (
JSString
, ToJSString(..)
, strToText
, textToStr
) where
import Data.Text (Text)
import Language.Javascript.JSaddle.Types (JSString(..))
#ifdef ghcjs_HOST_OS
import Data.JSString.Text (textFromJSString, textToJSString)
import GHCJS.Marshal.Internal (PFromJSVal(..))
import GHCJS.Types (nullRef)
#endif
import Language.Javascript.JSaddle.Classes (ToJSString(..))
strToText :: JSString -> Text
#ifdef ghcjs_HOST_OS
strToText = textFromJSString
#else
strToText (JSString text) = text
#endif
textToStr :: Text -> JSString
#ifdef ghcjs_HOST_OS
textToStr = textToJSString
#else
textToStr = JSString
#endif