yaml-unscrambler-0.1: library/YamlUnscrambler/Util/List.hs

module YamlUnscrambler.Util.List
where

import YamlUnscrambler.Prelude hiding (lookup)


firstNonEmpty :: [a] -> [a] -> [a]
firstNonEmpty a b =
  case a of
    [] -> b
    _ -> a