operator sections

tests/ErrMsg.newt

@@ -1,14 +0,0 @@
-module ErrMsg
-
-import Prelude
-
-infixl 5 _$$_
-
-_$$_ : Nat → (Nat → Nat) → Nat
-a $$ b = a + b a
-
--- Say something other than expected record
--- Why do we get there? shouldn't the progress made by parseDef short circuit the <|>?
-blah : Nat → Nat
-blah x = x $$ $ \ y => y
-

tests/ErrMsg.newt.fail

@@ -1,6 +0,0 @@
-*** Process tests/ErrMsg.newt
-module Prelude
-module ErrMsg
-ERROR at tests/ErrMsg.newt:13:15--13:16: trailing operator
-
-Compile failed

tests/Section.newt

@@ -0,0 +1,20 @@
+module Section
+
+import Prelude
+
+-- got infix in prefix position
+add : Int → Int → Int
+add = (+)
+
+add2 : Int → Int
+add2 = (+ 2)
+
+-- trailing operator
+add2' : Int → Int
+add2' = (2 +)
+
+main : IO Unit
+main = do
+    printLn $ (+) 2 3
+    printLn $ (+ 3) 2
+    printLn $ (2 +) 3

tests/Section.newt.golden

@@ -0,0 +1,3 @@
+5
+5
+5

tests/TrailDollar.newt

@@ -0,0 +1,13 @@
+module TrailDollar
+
+import Prelude
+
+infixl 5 _$$_
+
+_$$_ : Nat → (Nat → Nat) → Nat
+a $$ b = a + b a
+
+-- Previously this didn't parse, but it does with operator section support.
+blah : Nat → Nat
+blah x = x $$ $ \ y => y
+