module Patrol.Utility.Maybe ( note ) where note :: e -> Maybe a -> Either e a note :: e -> Maybe a -> Either e a note e e = Either e a -> (a -> Either e a) -> Maybe a -> Either e a forall b a. b -> (a -> b) -> Maybe a -> b maybe (e -> Either e a forall a b. a -> Either a b Left e e) a -> Either e a forall a b. b -> Either a b Right