testsuite/tests/javascript/T23346.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-# LANGUAGE CPP #-}

module Main where

main :: IO ()
main = print (correct_host && correct_arch)

#ifdef ghcjs_HOST_OS
correct_host = True
#else
correct_host = False 
#endif

#ifdef javascript_HOST_ARCH
correct_arch = True
#else
correct_arch = False 
#endif