{-# LANGUAGE Safe #-} module Valida.Utils ( neSingleton ) where import Data.List.NonEmpty (NonEmpty ((:|))) neSingleton :: a -> NonEmpty a neSingleton :: a -> NonEmpty a neSingleton = (a -> [a] -> NonEmpty a forall a. a -> [a] -> NonEmpty a :|[])