diff --git a/prototype/Doubt/Cofree.swift b/prototype/Doubt/Cofree.swift index b67823373..e875dfad9 100644 --- a/prototype/Doubt/Cofree.swift +++ b/prototype/Doubt/Cofree.swift @@ -44,6 +44,9 @@ extension Cofree { /// Returns a new `Cofree` constructed by recursively annotating each subtree with itself. public var duplicate: Cofree> { - return .Unroll(self, unwrap.map { $0.duplicate }) + return extend(id) } } + + +import Prelude