github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Nothing ever flat maps a Free.

Browse Source
This commit is contained in:
Rob Rix 2015-11-03 11:18:13 -05:00
parent 4169d8d554
commit 02af784036
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
prototype/Doubt/Free.swift
View File

@ -95,13 +95,6 @@ public enum Free<Leaf, Annotation, Value>: CustomDebugStringConvertible {
}
// MARK: Monad
public func flatMap<C>(@noescape transform: Value throws -> Free<Leaf, Annotation, C>) rethrows -> Free<Leaf, Annotation, C> {
return try analysis(ifPure: transform, ifRoll: { try .Roll($0, $1.map { try $0.flatMap(transform) }) })
}
// MARK: CustomDebugStringConvertible
public var debugDescription: String {