module Data.NonEmpty.Extra where

import Prelude
import Data.Monoid
import Data.List
import Data.NonEmpty

concat
  :: ∀ f a
   . (Semigroup f a)
  => NonEmpty f a
  -> NonEmpty f a
  -> NonEmpty f a
concat (x :| xs) (y :| ys) = x :| xs <> pure y <> ys