blob: e3938a4e311b2a6149699cb99300a2080c7f43cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- arith3broken.hs
module Arith3Broken where
import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log)
main :: forall e. Eff (console :: CONSOLE | e) Unit
main = do
log $ show (1 + 5)
log "10"
log $ show (negate $ -1)
log $ show ((+) 0 blah)
where blah = negate 1
|
