module YamlUnscrambler.Util.Maybe where

import YamlUnscrambler.Prelude hiding (lookup)

firstNonEmpty :: Maybe a -> Maybe a -> Maybe a
firstNonEmpty :: forall a. Maybe a -> Maybe a -> Maybe a
firstNonEmpty Maybe a
a Maybe a
b =
  case Maybe a
a of
    Just a
a -> forall a. a -> Maybe a
Just a
a
    Maybe a
_ -> Maybe a
b