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

Implement extract on Cofree.

Browse Source
This commit is contained in:
Rob Rix 2015-10-14 09:43:23 -04:00
parent a83f77116d
commit 0d662ade08
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
prototype/Doubt/Cofree.swift
View File

@ -3,3 +3,15 @@
public enum Cofree<B> { public enum Cofree<B> {
case Unroll(B) case Unroll(B)
} }
// MARK: - Comonad
extension Cofree {
var extract: B {
switch self {
case let .Unroll(b):
return b
}
}
}