1module Main where
2
3import Prelude
4import Either as Either
5import Effect.Console (log)
6
7either :: forall a b c. (a -> c) -> (b -> c) -> Either.Either a b -> c
8either f _ (Either.Left x) = f x
9either _ g (Either.Right y) = g y
10
11main = log (either identity identity (Either.Left "Done"))
12