Minimal purescript front-end which compiles with GHCJS

ghcjs-purescript.hs

module Main where

import qualified Language.PureScript as P

main = interact compile
  where
  compile text =
    case P.runIndentParser "" P.parseModules "module Prelude where\nmain = \"Hello World\"" of
      Left err -> show err
      Right modules ->
        case P.compile (P.defaultOptions { P.optionsBrowserNamespace = Just "PS" }) modules of
          Left err -> err
          Right (js, exts, _) -> js