valida-0.1.0: test/Utils.hs

module Utils
    ( neSingleton
    ) where

import Data.List.NonEmpty (NonEmpty ((:|)))

neSingleton :: a -> NonEmpty a
neSingleton = (:|[])