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