Main.purs

module Main where

import Prelude

import Control.Monad.Eff
import Control.Monad.Eff.Console

type Config = {
  debug::Boolean
}

type Params = {
  config::Config
}

printParams::forall e.Params -> Eff (console::CONSOLE|e) Unit
printParams p =
  log $ show p.config.debug
  
updateParams::Params -> Boolean -> Params
updateParams p debug =
  p { config = p.config { debug }}
  
main = do
  printParams $ updateParams {config: {debug: true}} false