@@ -211,13 +211,15 @@ end
211
211
constrain (x:: UnionScope , y) = constrain (x, UnionScope ((y,)))
212
212
213
213
Base. isless (:: NodeScope , :: NodeScope ) = false
214
+ Base. isless (:: NodeScope , :: UnionScope ) = true
214
215
Base. isless (:: NodeScope , :: TaintScope ) = true
215
216
Base. isless (:: NodeScope , :: AnyScope ) = true
216
217
constrain (x:: NodeScope , y:: NodeScope ) =
217
218
x == y ? y : InvalidScope (x, y)
218
219
219
220
Base. isless (:: ProcessScope , :: ProcessScope ) = false
220
221
Base. isless (:: ProcessScope , :: NodeScope ) = true
222
+ Base. isless (:: ProcessScope , :: UnionScope ) = true
221
223
Base. isless (:: ProcessScope , :: TaintScope ) = true
222
224
Base. isless (:: ProcessScope , :: AnyScope ) = true
223
225
constrain (x:: ProcessScope , y:: ProcessScope ) =
@@ -228,6 +230,7 @@ constrain(x::NodeScope, y::ProcessScope) =
228
230
Base. isless (:: ExactScope , :: ExactScope ) = false
229
231
Base. isless (:: ExactScope , :: ProcessScope ) = true
230
232
Base. isless (:: ExactScope , :: NodeScope ) = true
233
+ Base. isless (:: ExactScope , :: UnionScope ) = true
231
234
Base. isless (:: ExactScope , :: TaintScope ) = true
232
235
Base. isless (:: ExactScope , :: AnyScope ) = true
233
236
constrain (x:: ExactScope , y:: ExactScope ) =
0 commit comments