fix task tests

This commit is contained in:
Mark Harrah 2012-07-01 15:16:41 -04:00
parent 4e574d0df3
commit fbb09b1433
1 changed files with 1 additions and 0 deletions

View File

@ -26,6 +26,7 @@ trait TypeFunctions
implicit def toFn1[A,B](f: A => B): Fn1[A,B] = new Fn1[A,B] {
def [C](g: C => A) = f compose g
}
def idK[M[_]]: M ~> M = new (M ~> M) { def apply[T](m: M[T]): M[T] = m }
type Endo[T] = T=>T
type ~>|[A[_],B[_]] = A ~> Compose[Option, B]#Apply