grammars/source.haskell.json in github-linguist-7.8.0 vs grammars/source.haskell.json in github-linguist-7.9.0

@@ -265,10 +265,13 @@
           "patterns": [
             {
               "include": "#comments"
             },
             {
+              "include": "#string"
+            },
+            {
               "include": "#where"
             },
             {
               "include": "#deriving"
             },
@@ -1640,17 +1643,42 @@
       "patterns": [
         {
           "include": "#via_list"
         },
         {
+          "include": "#via_list_newline"
+        },
+        {
+          "include": "#via_indent"
+        },
+        {
           "include": "#via_simple"
         },
         {
           "include": "#via_keyword"
         }
       ]
     },
+    "via_indent": {
+      "patterns": [
+        {
+          "name": "meta.via.haskell",
+          "begin": "^([ \\t]*)(via)\\s*",
+          "end": "^(?!\\1|[ \\t]*$)",
+          "patterns": [
+            {
+              "include": "#type_signature"
+            }
+          ],
+          "beginCaptures": {
+            "2": {
+              "name": "keyword.other.haskell"
+            }
+          }
+        }
+      ]
+    },
     "via_keyword": {
       "patterns": [
         {
           "name": "meta.via.haskell",
           "match": "(?:(?=[\\p{Ll}_\\p{Lu}\\p{Lt}])(?\u003c![\\p{Ll}_\\p{Lu}\\p{Lt}']))(via)(?:(?\u003c=[\\p{Ll}_\\p{Lu}\\p{Lt}\\p{Nd}'])(?![\\p{Ll}_\\p{Lu}\\p{Lt}\\p{Nd}']))",
@@ -1666,9 +1694,28 @@
       "patterns": [
         {
           "name": "meta.via.haskell",
           "begin": "(?:(?=[\\p{Ll}_\\p{Lu}\\p{Lt}])(?\u003c![\\p{Ll}_\\p{Lu}\\p{Lt}']))(via)\\s*\\(",
           "end": "\\)",
+          "patterns": [
+            {
+              "include": "#type_signature"
+            }
+          ],
+          "beginCaptures": {
+            "1": {
+              "name": "keyword.other.haskell"
+            }
+          }
+        }
+      ]
+    },
+    "via_list_newline": {
+      "patterns": [
+        {
+          "name": "meta.via.haskell",
+          "begin": "(?:(?=[\\p{Ll}_\\p{Lu}\\p{Lt}])(?\u003c![\\p{Ll}_\\p{Lu}\\p{Lt}']))(via)\\s*",
+          "end": "$",
           "patterns": [
             {
               "include": "#type_signature"
             }
           ],