--------------------------------------------------------------------------------

-- | _O(n)_ 'snoc' onto a list.
snocList :: [a] -> a -> NonEmpty a
snocList xs x = Export.fromList $ xs ++ [x]
snocList :: [a] -> a -> NonEmpty a
snocList xs x = Export.fromList $ xs ++ [x]
snocList xs x = Export.fromList $ xs ++ [x]