test.hs

{-# LANGUAGE ForeignFunctionInterface #-}
import Haste
import Haste.App
import Haste.Foreign

anything :: Server ()
anything = return ()

entry_point :: String -> String -> IO ()
entry_point regex_str lang = do
  runApp def $ do
      remote_anything <- remote anything
      runClient $ do
        onServer remote_anything
    

main :: IO ()
main =  do
  #ifdef __HASTE__
  export (toJSString "hs_entry_point") entry_point
  #endif
  runApp def $ do
  runClient $ return ()