support function application on multiple lines

Warry · Oct 13, 2016 · fa8bba8 · fa8bba8
1 parent c45948f
commit fa8bba8
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/src/Ast/Helpers.elm b/src/Ast/Helpers.elm
@@ -50,7 +50,7 @@ spaces : Parser String
 spaces = regex "[ \t]*"
 
 spaces' : Parser String
-spaces' = regex "[ \t]+"
+spaces' = regex "[ \r\t\n]*[ \t]+"
 
 symbol : String -> Parser String
 symbol k =

diff --git a/tests/Statement.elm b/tests/Statement.elm
@@ -213,6 +213,14 @@ f x =
 g : Int -> Int
 g x =
   f x + 1
+
+h : Int -> Int
+h x =
+  g
+    x
+    +
+  10
+
 """
 
 multipleDeclarations : Test
@@ -235,6 +243,15 @@ multipleDeclarations =
                                                (Variable ["f"])
                                                (Variable ["x"]))
                                             (Integer 1))
+         , FunctionTypeDeclaration "h" (TypeApplication
+                                          (TypeConstructor ["Int"] [])
+                                          (TypeConstructor ["Int"] []))
+         , FunctionDeclaration "h" ["x"] (BinOp
+                                            (Variable ["+"])
+                                            (Application
+                                                (Variable ["g"])
+                                                (Variable ["x"]))
+                                            (Integer 10))
          ]
 
 moduleFixityInput : String