@@ -88,7 +88,7 @@ new Mirror.Sum:
88
88
type MirroredType = Tree
89
89
type MirroredElemTypes [T ] = (Branch [T ], Leaf [T ])
90
90
type MirroredMonoType = Tree [_]
91
- type MirroredLabels = " Tree"
91
+ type MirroredLabel = " Tree"
92
92
type MirroredElemLabels = (" Branch" , " Leaf" )
93
93
94
94
def ordinal (x : MirroredMonoType ): Int = x match
@@ -100,7 +100,7 @@ new Mirror.Product:
100
100
type MirroredType = Branch
101
101
type MirroredElemTypes [T ] = (Tree [T ], Tree [T ])
102
102
type MirroredMonoType = Branch [_]
103
- type MirroredLabels = " Branch"
103
+ type MirroredLabel = " Branch"
104
104
type MirroredElemLabels = (" left" , " right" )
105
105
106
106
def fromProduct (p : Product ): MirroredMonoType =
@@ -111,7 +111,7 @@ new Mirror.Product:
111
111
type MirroredType = Leaf
112
112
type MirroredElemTypes [T ] = Tuple1 [T ]
113
113
type MirroredMonoType = Leaf [_]
114
- type MirroredLabels = " Leaf"
114
+ type MirroredLabel = " Leaf"
115
115
type MirroredElemLabels = Tuple1 [" elem" ]
116
116
117
117
def fromProduct (p : Product ): MirroredMonoType =
0 commit comments