yaml-unscrambler-0.1: 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