sigh.purs

module Main where

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

import Debug.Trace

import Data.Maybe

expensiveComputation :: Int
expensiveComputation = 666

main :: forall e. Eff (console :: CONSOLE | e) Unit
main =
  -- The expensive computation happens even though it should not.
  let x = fromMaybe
        (trace "NOPE!" (\_ -> expensiveComputation))
        (Just 1337)
   in log (show x)