-- | Converts a normal list to a 'NonEmpty' stream.
--
-- Raises an error if given an empty list.
fromList :: [a] -> NonEmpty a
fromList (a:as) = a :| as
fromList :: [a] -> NonEmpty a
fromList (a:as) = a :| as
fromList (a:as) = a :| as