From d1afde3c2fcff20ab1fbcaee82a8f11a03267efa Mon Sep 17 00:00:00 2001
From: Justus Adam <dev@justus.science>
Date: Tue, 21 Apr 2020 11:44:35 +0100
Subject: [PATCH] Added support for multiline type aliases

Closes #111
---
 syntaxes/haskell.tmLanguage  | 33 +++++++++++++++++++++------------
 test/syntax-examples/test.hs | 14 ++++++++++++++
 2 files changed, 35 insertions(+), 12 deletions(-)

diff --git a/syntaxes/haskell.tmLanguage b/syntaxes/haskell.tmLanguage
index 444c395..46c4787 100644
--- a/syntaxes/haskell.tmLanguage
+++ b/syntaxes/haskell.tmLanguage
@@ -146,7 +146,7 @@
 		<dict>
 			<key>match</key>
 			<string>(?x)
-				\b(data|newtype)
+				^(\s)*\b(data|newtype)
 				\s+
 				([\p{Lu}\p{Lt}][\w\p{Nd}_']*)
 				((?:\s+[\p{Ll}][\w\p{Nd}_']*)*?)
@@ -155,17 +155,17 @@
 			</string>
 			<key>captures</key>
 			<dict>
-				<key>1</key>
+				<key>2</key>
 				<dict>
 					<key>name</key>
 					<string>keyword.other.haskell</string>
 				</dict>
-				<key>2</key>
+				<key>3</key>
 				<dict>
 					<key>name</key>
 					<string>storage.type.haskell</string>
 				</dict>
-				<key>3</key>
+				<key>4</key>
 				<dict>
 					<key>patterns</key>
 					<array>
@@ -177,7 +177,7 @@
 						</dict>
 					</array>
 				</dict>
-				<key>4</key>
+				<key>5</key>
 				<dict>
 					<key>name</key>
 					<string>keyword.other.haskell</string>
@@ -185,9 +185,9 @@
 			</dict>
 		</dict>
 		<dict>
-			<key>match</key>
+			<key>begin</key>
 			<string>(?x)
-				\b(type)
+				^(\s*)\b(type)
 				\s+
 				([^=]*)
 				(?:
@@ -196,14 +196,14 @@
 					(.*)
 				)?\s*$
 			</string>
-			<key>captures</key>
+			<key>beginCaptures</key>
 			<dict>
-				<key>1</key>
+				<key>2</key>
 				<dict>
 					<key>name</key>
 					<string>keyword.other.haskell</string>
 				</dict>
-				<key>2</key>
+				<key>3</key>
 				<dict>
 					<key>patterns</key>
 					<array>
@@ -213,12 +213,12 @@
 						</dict>
 					</array>
 				</dict>
-				<key>3</key>
+				<key>4</key>
 				<dict>
 					<key>name</key>
 					<string>keyword.other.haskell</string>
 				</dict>
-				<key>4</key>
+				<key>5</key>
 				<dict>
 					<key>patterns</key>
 					<array>
@@ -229,6 +229,15 @@
 					</array>
 				</dict>
 			</dict>
+			<key>patterns</key>
+			<array>
+				<dict>
+					<key>include</key>
+					<string>#type_signature</string>
+				</dict>
+			</array>
+			<key>end</key>
+			<string>(?=(&lt;\-)|(^(\1)?[^\s]|}))</string>
 		</dict>
 		<dict>
 			<key>begin</key>
diff --git a/test/syntax-examples/test.hs b/test/syntax-examples/test.hs
index ff58dde..65f1797 100644
--- a/test/syntax-examples/test.hs
+++ b/test/syntax-examples/test.hs
@@ -40,6 +40,20 @@ data T3 = T3
 
 type MyType = MyData String
 
+-- Multi-line type aliases
+
+type T a = 
+    Constr 
+    a 
+    Int
+
+-- Multi line type alias with infix constructors
+
+type UserApi = "users" :> Body '[JSON]
+                       :> Post '[JSON]
+        :<|>  "users"  :> Capture "userid"
+                       :> ReqBody '[JSON]
+
 class Empty
 
 abind :: Type