src/main/scala/scala/workflow/auxiliary.scala

package scala.workflow

trait Semigroup[A] {
  def append: (A, A) ⇒ A
}

object Semigroup extends SemigroupInstances {
  def apply[A](ap: (A, A) ⇒ A) = new Semigroup[A] {
    def append = ap
  }
}

trait Monoid[A] extends Semigroup[A] {
  val unit: A
}

object Monoid extends MonoidInstances {
  def apply[A](u: A, ap: (A, A) ⇒ A) = new Monoid[A] {
    val unit = u
    def append = ap
  }
}