valida-base-0.1.0: src/Valida/Utils.hs

{-# LANGUAGE Safe #-}

module Valida.Utils
    ( neSingleton
    ) where

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

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