yaml-unscrambler-0.1.0.7: library/YamlUnscrambler/Util/Maybe.hs

module YamlUnscrambler.Util.Maybe where

import YamlUnscrambler.Prelude hiding (lookup)

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