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