testsuite/tests/javascript/js-ffi-isNull.hs


1
2
3
4
5
6
7
8
9
10

import GHC.JS.Prim

main :: IO ()
main = do
  print (isNull jsNull)
  print (isNull $ toJSString "")
  print (isNull $ toJSString "test")
  print (isNull $ toJSInt 0)
  print (isNull $ toJSInt 1)
  print (isNull $ toJSInt 2)