Match in terms of ReasonML multiline strings

Author: jparise

after/syntax/reason/graphql.vim

@@ -29,5 +29,5 @@ syn include @GraphQLSyntax syntax/graphql.vim
 if exists('s:current_syntax')
   let b:current_syntax = s:current_syntax
 endif
-syntax region graphqlExtensionPoint start=/\[%graphql\_s*{|/ end=/|}\_s*\]/ contains=@GraphQLSyntax,reasonTemplateExpression keepend
-hi def link graphqlExtensionPoint reasonTaggedTemplate
+
+syntax region graphqlMultilineString matchgroup=reasonMultilineString start=+graphql\_s*\zs{|+ end=+|}+ contains=@GraphQLSyntax,reasonEscape,reasonEscapeUnicode,reasonEscapeError,reasonStringContinuation keepend

test/reason/default.vader

@@ -2,7 +2,7 @@ Before:
   source ../after/syntax/reason/graphql.vim
 
 Execute (Expected syntax groups):
-  Assert graphql#has_syntax_group('graphqlExtensionPoint')
+  Assert graphql#has_syntax_group('graphqlMultilineString')
 
 Given reason (Template):
   [%graphql {|
@@ -15,6 +15,4 @@ Given reason (Template):
   |}];
 
 Execute (Syntax assertions):
-  " AssertEqual 'graphqlTaggedTemplate', SyntaxOf('gql')
-  " AssertEqual 'graphqlTemplateString', SyntaxOf('`')
   AssertEqual 'graphqlName', SyntaxOf('user')