johnynek

// Run this with scala <filename>

/**
 * A Two-phase commit Monad
 */
trait Transaction[+T] {
  def map[U](fn: T => U): Transaction[U] = flatMap { t => Constant(fn(t)) }
  def flatMap[U](fn: T => Transaction[U]): Transaction[U] =
    FlatMapped(this, fn)

kevinwright

case class ZeeingEvent(
  zid: String,
  kind: String,
  showId: String,
  show_name: Option[String],
  time: DateTime
) {
  require (kind == "StartedZeeing" || kind == "EndedZeeing")
}

SethTisue

  // add zipWith to Iterable; thank you stackoverflow.com/q/3895813
  implicit class RichIterable[A, CC[X] <: Iterable[X]](xs: CC[A]) {
    type Builder[C] = collection.generic.CanBuildFrom[Nothing, C, CC[C]]
    def zipWith[B, C](ys: Iterable[B])(f: (A, B) => C)(implicit cbf: Builder[C]): CC[C] =
      xs.zip(ys).map(f.tupled)(collection.breakOut)
  }

ghostm

/*
   Copyright 2012 Matthew Henderson

   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at

       http://www.apache.org/licenses/LICENSE-2.0

   Unless required by applicable law or agreed to in writing, software