@@ -61,7 +61,7 @@ listOf t = ADT "List" [t]
6161signalOf t = ADT "Signal" [t]
6262tupleOf ts = ADT ("Tuple" ++ show (length ts)) ts
6363maybeOf t = ADT "Maybe" [t]
64−eitherOf a b = ADT "Maybe" [a,b]
64+eitherOf a b = ADT "Either" [a,b]
6565pairOf t = tupleOf [t,t]
6666point = pairOf int
6767appendable t = Super (Set.fromList [ string, text, listOf t ])