Add indentation checks when parsing args in implDecl

src/Idris/Parser.idr

@@ -1607,7 +1607,7 @@ implDecl fname indents
                          impls  <- implBinds fname indents
                          cons   <- constraints fname indents
                          n      <- decorate fname Typ name
-                         params <- many (simpleExpr fname indents)
+                         params <- many (continue indents *> simpleExpr fname indents)
                          nusing <- option [] $ decoratedKeyword fname "using"
                                             *> forget <$> some (decorate fname Function name)
                          body <- optional $ decoratedKeyword fname "where" *> blockAfter col (topDecl fname)

tests/Main.idr

@@ -92,7 +92,7 @@ idrisTestsError = MkTestPool "Error messages" [] Nothing
        "perror001", "perror002", "perror003", "perror004", "perror005",
        "perror006", "perror007", "perror008", "perror009", "perror010",
        "perror011", "perror012", "perror013", "perror014", "perror015",
-       "perror016"]
+       "perror016", "perror017"]
 
 idrisTestsInteractive : TestPool
 idrisTestsInteractive = MkTestPool "Interactive editing" [] Nothing

tests/idris2/perror017/ParseImpl.idr

@@ -0,0 +1,13 @@
+import Control.Monad.Identity
+
+
+interface Functor' (0 f :Type -> Type) where
+  map': (a -> b) -> f a -> f b
+
+Product' : (Type -> Type) -> (Type -> Type) -> (Type -> Type -> Type)
+Product' f g = (\a, b => (f a, g b))
+
+[prod] Functor' f => Functor' g => Functor' ((Product' f g) a)
+
+Functor' Identity where
+  map' f (Id x) = Id (f x)

tests/idris2/perror017/expected

@@ -0,0 +1 @@
+1/1: Building ParseImpl (ParseImpl.idr)

tests/idris2/perror017/run

@@ -0,0 +1,3 @@
+rm -rf build
+
+$1 --no-color --console-width 0 --check ParseImpl.idr || true