{-# LANGUAGE ForeignFunctionInterface #-} module Main where import Data.JSString foreign import javascript unsafe "alert($1);" alert :: JSString -> IO () main = alert "Hello JS"