javascript-extras-0.4.0.0: test/hs/Main.hs

{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

#ifdef __GHCJS__

import qualified Data.JSString as JS
import qualified GHCJS.Foreign.Callback as J
import qualified GHCJS.Types as J
import qualified JavaScript.Extras as JE
import JavaScript.Extras.JSRep.Unsafe ()

test :: JE.JSRep -> IO ()
test x = do
    let str = show x
        x' = read str :: JE.JSRep
        str' = show x'
    js_write $ "Test: " `mappend` (JS.pack str) `mappend` " == " `mappend` (JS.pack str')

main :: IO ()
main = do
    test js_int
    test js_obj
    cb <- J.syncCallback' (pure (JE.toJS js_int))
    test (JE.JSRep (J.jsval cb))
    J.releaseCallback cb
    test (JE.JSRep (J.jsval cb))

foreign import javascript unsafe
  "document.write('<p>' + $1 + '</p>')"
  js_write :: JS.JSString -> IO ()

foreign import javascript unsafe
  "5"
  js_int :: JE.JSRep

foreign import javascript unsafe
  "{ 'hello': 'world' }"
  js_obj :: JE.JSRep

#else

main :: IO ()
main = pure ()

#endif