{-# 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
:|[])