mirror of
https://github.com/github/semantic.git
synced 2024-12-01 17:59:10 +03:00
Call a Term
a Term
.
This commit is contained in:
parent
cce1ed61aa
commit
67d35078d8
@ -189,7 +189,7 @@ extension Free: FreeConvertible {
|
||||
|
||||
extension FreeAlgorithm where B: FreeConvertible, B.RollType == A, B.PureType == Patch<A> {
|
||||
/// `FreeAlgorithm<A, Diff>`s can be constructed from a pair of `Term`s using `ByKey` when `Keyed`, `ByIndex` when `Indexed`, and `Recursive` otherwise.
|
||||
public init(_ a: Fix<A>, _ b: Fix<A>) {
|
||||
public init(_ a: Term, _ b: Term) {
|
||||
switch (a.out, b.out) {
|
||||
case let (.Keyed(a), .Keyed(b)):
|
||||
self = .Roll(.ByKey(a, b, Syntax.Keyed >>> Free.Roll >>> B.init >>> Pure))
|
||||
|
Loading…
Reference in New Issue
Block a user