@@ -456,15 +456,16 @@
456456 <collection name="gadt-constructor">
457457 <scope name="haskell.identifier.type.struct.data.constructor">
458458 <symbol type="constructor">
459− <context behavior="whitespace" />
459+ <context behavior="subtree" foldable="true" />
460460 </symbol>
461− <expression>(^|=|\|)\h+([A-Z](\w|')*)</expression>
462− <capture number="2" name="haskell.identifier.data.name" />
463− </scope>
464− <scope name="identifier.type.struct.GADT.constructor">
465− <symbol type="constructor"></symbol>
466− <expression>^\h+([A-Z](\w|')*)</expression>
467− <capture number="1" name="haskell.identifier.data.name" />
461+ <starts-with>
462+ <expression>(^|=|\||^)\h+([A-Z](\w|')*)</expression>
463+ <capture number="2" name="haskell.identifier.data.name" />
464+ </starts-with>
465+ <ends-with />
466+ <subscopes anchored="true">
467+ <include syntax="self" collection="record-definition" />
468+ </subscopes>
468469 </scope>
469470 </collection>
470471