Main.purs

module Main where

import Prelude
import Data.Maybe
import Effect
import Effect.Console
import Effect.Unsafe

wat oh = unsafePerformEffect (log oh)

test1 :: Effect Unit
test1 = do
  ok (wat "hello from effect")
  pure unit
  where
  ok _ = pure unit

test2 :: Maybe Unit
test2 = do
  ok (wat "hello from maybe")
  pure unit
  where
  ok _ = pure unit