module HaskellWorks.Either
  ( orElse
  ) where

import           Data.Either
import           Data.Function

orElse :: Either e a -> Either e a -> Either e a
orElse :: forall e a. Either e a -> Either e a -> Either e a
orElse Either e a
a Either e a
b =
  (e -> Either e a) -> (a -> Either e a) -> Either e a -> Either e a
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
either (Either e a -> e -> Either e a
forall a b. a -> b -> a
const Either e a
b) a -> Either e a
forall a b. b -> Either a b
Right Either e a
a