@@ -712,38 +712,38 @@ let CheckAugmentationAttribs isImplementation g amap (tycon: Tycon) =
712712 // THESE ARE THE LEGITIMATE CASES
713713
714714 // [< >] on anything
715- | _, _ , None , None, None , None, None , None , None
715+ | _, _, None, None, None, None, None, None, None
716716
717717 // [<CustomEquality; CustomComparison>] on union/record/struct
718- | true , _, None, Some( true ), None , None , None , Some( true ), None
718+ | true , _, None, Some( true ), None, None, None, Some( true ), None
719719
720720 // [<CustomEquality; NoComparison>] on union/record/struct
721- | true , _, None, Some( true ), None , None , Some( true ), None , None ->
721+ | true , _, None, Some( true ), None, None, Some( true ), None, None ->
722722 ()
723723
724724 // [<ReferenceEquality; NoComparison>] on union/record/struct
725- | true , _, None, None , Some( true ), None , Some( true ), None , None
725+ | true , _, None, None, Some( true ), None, Some( true ), None, None
726726
727727 // [<ReferenceEquality>] on union/record/struct
728- | true , _, None, None , Some( true ), None , None , None , None ->
728+ | true , _, None, None, Some( true ), None, None, None, None ->
729729 if isTrueFSharpStructTycon g tycon then
730730 errorR( Error( FSComp.SR.augNoRefEqualsOnStruct(), m))
731731 else ()
732732
733733 // [<StructuralEquality; StructuralComparison>] on union/record/struct
734- | true , true , None, None , None , Some( true ), None , None , Some( true )
734+ | true , true , None, None, None, Some( true ), None, None, Some( true )
735735
736736 // [<StructuralEquality; NoComparison>]
737- | true , _, None, None , None , Some( true ), Some( true ), None , None
737+ | true , _, None, None, None, Some( true ), Some( true ), None, None
738738
739739 // [<StructuralEquality; CustomComparison>]
740- | true , _, None, None , None , Some( true ), None , Some( true ), None
740+ | true , _, None, None, None, Some( true ), None, Some( true ), None
741741
742742 // [<NoComparison>] on anything
743- | _ , _, None, None , None , None , Some( true ), None , None
743+ | _, _, None, None, None, None, Some( true ), None, None
744744
745745 // [<NoEquality; NoComparison>] on anything
746- | _ , _, Some( true ), None, None , None , Some( true ), None , None ->
746+ | _, _, Some( true ), None, None, None, Some( true ), None, None ->
747747
748748 ()
749749
@@ -754,18 +754,18 @@ let CheckAugmentationAttribs isImplementation g amap (tycon: Tycon) =
754754 errorR( Error( FSComp.SR.augNoEqualityNeedsNoComparison(), m))
755755
756756 // [<StructuralComparison(_)>]
757- | true , true , _, _, _ , None , _, _, Some( true ) ->
757+ | true , true , _, _, _, None, _, _, Some( true ) ->
758758 errorR( Error( FSComp.SR.augStructCompNeedsStructEquality(), m))
759759 // [<StructuralEquality(_)>]
760- | true , _, _, _, _ , Some( true ), None, _, None ->
760+ | true , _, _, _, _, Some( true ), None, _, None ->
761761 errorR( Error( FSComp.SR.augStructEqNeedsNoCompOrStructComp(), m))
762762
763763 // [<StructuralEquality(_)>]
764- | true , _, _, Some( true ), _ , _, None, None, _ ->
764+ | true , _, _, Some( true ), _, _, None, None, _ ->
765765 errorR( Error( FSComp.SR.augCustomEqNeedsNoCompOrCustomComp(), m))
766766
767767 // [<ReferenceEquality; StructuralEquality>]
768- | true , _, _, _, Some( true ) , Some( true ) , _, _, _
768+ | true , _, _, _, Some( true ), Some( true ), _, _, _
769769
770770 // [<ReferenceEquality; StructuralComparison(_) >]
771771 | true , _, _, _, Some( true ), _, _, _, Some( true ) ->
@@ -774,9 +774,9 @@ let CheckAugmentationAttribs isImplementation g amap (tycon: Tycon) =
774774 // non augmented type, [<ReferenceEquality; ... >]
775775 // non augmented type, [<StructuralEquality; ... >]
776776 // non augmented type, [<StructuralComparison(_); ... >]
777- | false , _, _, _, Some( true ), _ , _ , _, _
778- | false , _, _, _, _ , Some( true ), _ , _, _
779- | false , _, _, _, _ , _ , _ , _, Some( true ) ->
777+ | false , _, _, _, Some( true ), _, _, _, _
778+ | false , _, _, _, _, Some( true ), _, _, _
779+ | false , _, _, _, _, _, _, _, Some( true ) ->
780780 errorR( Error( FSComp.SR.augOnlyCertainTypesCanHaveAttrs(), m))
781781 // All other cases
782782 | _ ->
@@ -829,7 +829,7 @@ let TyconIsCandidateForAugmentationWithCompare (g: TcGlobals) (tycon: Tycon) =
829829 not ( TyconRefHasAttribute g tycon.Range g.attrib_ IsByRefLikeAttribute ( mkLocalTyconRef tycon)) &&
830830 match getAugmentationAttribs g tycon with
831831 // [< >]
832- | true , true , None, None, None, None , None, None, None
832+ | true , true , None, None, None, None, None, None, None
833833 // [<StructuralEquality; StructuralComparison>]
834834 | true , true , None, None, None, Some( true ), None, None, Some( true )
835835 // [<StructuralComparison>]
@@ -845,7 +845,7 @@ let TyconIsCandidateForAugmentationWithEquals (g: TcGlobals) (tycon: Tycon) =
845845
846846 match getAugmentationAttribs g tycon with
847847 // [< >]
848- | true , _, None, None, None, None , _, _, _
848+ | true , _, None, None, None, None, _, _, _
849849 // [<StructuralEquality; _ >]
850850 // [<StructuralEquality; StructuralComparison>]
851851 | true , _, None, None, None, Some( true ), _, _, _ -> true
0 commit comments