purescript-0.6.4.1: examples/passing/FunctionScope.purs

module Main where

  import Prelude

  mkValue :: Number -> Number
  mkValue id = id

  foreign import error
    """
    function error(msg) {
      throw msg;
    }
    """ :: forall a. String -> a

  main = do
    let value = mkValue 1
    if value == 1
      then Debug.Trace.trace "Done"
      else error "Not done"