@@ -1269,7 +1269,7 @@ module Make1<LocationSig Location, InputSig1<Location> Input1> {
12691269 }
12701270
12711271 private newtype TRelevantAccess =
1272- MkRelevantAccess ( Access a , AccessEnvironment e , AccessPosition apos , TypePath path ) {
1272+ MkRelevantAccess ( Access a , AccessPosition apos , AccessEnvironment e , TypePath path ) {
12731273 relevantAccessConstraint ( a , e , _, apos , path , _)
12741274 }
12751275
@@ -1279,11 +1279,11 @@ module Make1<LocationSig Location, InputSig1<Location> Input1> {
12791279 */
12801280 private class RelevantAccess extends MkRelevantAccess {
12811281 Access a ;
1282- AccessEnvironment e ;
12831282 AccessPosition apos ;
1283+ AccessEnvironment e ;
12841284 TypePath path ;
12851285
1286- RelevantAccess ( ) { this = MkRelevantAccess ( a , e , apos , path ) }
1286+ RelevantAccess ( ) { this = MkRelevantAccess ( a , apos , e , path ) }
12871287
12881288 Type getTypeAt ( TypePath suffix ) {
12891289 result = a .getInferredType ( e , apos , path .appendInverse ( suffix ) )
@@ -1314,7 +1314,7 @@ module Make1<LocationSig Location, InputSig1<Location> Input1> {
13141314 Type constraint , TypePath path , Type t
13151315 ) {
13161316 exists ( RelevantAccess ra |
1317- ra = MkRelevantAccess ( a , e , apos , prefix ) and
1317+ ra = MkRelevantAccess ( a , apos , e , prefix ) and
13181318 SatisfiesConstraint< RelevantAccess , SatisfiesConstraintInput > :: satisfiesConstraintType ( ra ,
13191319 constraint , path , t ) and
13201320 constraint = ra .getConstraint ( target )
0 commit comments