purescript alert ffi

purescript-alert

module FFI.Test where

import Control.Monad.Eff
import Debug.Trace

foreign import data Alert :: !

foreign import alert
  "function alert(s) { \
  \  return function() { \
  \     window.alert(s); \
  \  }; \
  \}" :: forall r. String -> Eff (alert :: Alert | r) { }

main = do
    trace "test"
    alert "hello"