@@ -1332,7 +1332,7 @@ module Make1<LocationSig Location, InputSig1<Location> Input1> {
13321332 }
13331333
13341334 private newtype TRelevantAccess =
1335- MkRelevantAccess ( Access a , AccessEnvironment e , AccessPosition apos , TypePath path ) {
1335+ MkRelevantAccess ( Access a , AccessPosition apos , AccessEnvironment e , TypePath path ) {
13361336 relevantAccessConstraint ( a , e , _, apos , path , _)
13371337 }
13381338
@@ -1342,11 +1342,11 @@ module Make1<LocationSig Location, InputSig1<Location> Input1> {
13421342 */
13431343 private class RelevantAccess extends MkRelevantAccess {
13441344 Access a ;
1345- AccessEnvironment e ;
13461345 AccessPosition apos ;
1346+ AccessEnvironment e ;
13471347 TypePath path ;
13481348
1349- RelevantAccess ( ) { this = MkRelevantAccess ( a , e , apos , path ) }
1349+ RelevantAccess ( ) { this = MkRelevantAccess ( a , apos , e , path ) }
13501350
13511351 Type getTypeAt ( TypePath suffix ) {
13521352 result = a .getInferredType ( e , apos , path .appendInverse ( suffix ) )
@@ -1377,7 +1377,7 @@ module Make1<LocationSig Location, InputSig1<Location> Input1> {
13771377 Type constraint , TypePath path , Type t
13781378 ) {
13791379 exists ( RelevantAccess ra |
1380- ra = MkRelevantAccess ( a , e , apos , prefix ) and
1380+ ra = MkRelevantAccess ( a , apos , e , prefix ) and
13811381 SatisfiesConstraint< RelevantAccess , SatisfiesConstraintInput > :: satisfiesConstraintType ( ra ,
13821382 constraint , path , t ) and
13831383 constraint = ra .getConstraint ( target )
0 commit comments