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

Unwrap Cofrees.

Browse Source
This commit is contained in:
Rob Rix 2015-10-14 09:59:04 -04:00
parent 3985ef0fea
commit ab554c52a0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
prototype/Doubt/Cofree.swift
View File

@ -2,6 +2,13 @@
public enum Cofree<A, B> { public enum Cofree<A, B> {
indirect case Unroll(B, Syntax<Cofree, A>) indirect case Unroll(B, Syntax<Cofree, A>)
public var unwrap: Syntax<Cofree, A> {
switch self {
case let .Unroll(_, rest):
return rest
}
}
} }