Remove some code duplication between TaskInstance and MultiInTask

This commit is contained in:
Dale Wijnand 2017-01-12 16:13:51 +00:00
parent 936dda6297
commit 011d0e8489
No known key found for this signature in database
GPG Key ID: 4F256E3D151DF5EF
1 changed files with 1 additions and 1 deletions

View File

@ -18,7 +18,7 @@ object TaskInstance extends MonadInstance {
import TaskExtra._ import TaskExtra._
final type M[x] = Task[x] final type M[x] = Task[x]
def app[K[L[x]], Z](in: K[Task], f: K[Id] => Z)(implicit a: AList[K]): Task[Z] = Task(Info(), new Mapped[Z, K](in, f compose allM, a)) def app[K[L[x]], Z](in: K[Task], f: K[Id] => Z)(implicit a: AList[K]): Task[Z] = in map f
def map[S, T](in: Task[S], f: S => T): Task[T] = in map f def map[S, T](in: Task[S], f: S => T): Task[T] = in map f
def flatten[T](in: Task[Task[T]]): Task[T] = in flatMap idFun[Task[T]] def flatten[T](in: Task[Task[T]]): Task[T] = in flatMap idFun[Task[T]]
def pure[T](t: () => T): Task[T] = toTask(t) def pure[T](t: () => T): Task[T] = toTask(t)