[ fix ] check indentation after = in declarations

libs/base/System/Clock.idr

@@ -53,10 +53,10 @@ Eq (Clock type) where
 public export
 Ord (Clock type) where
   compare (MkClock seconds1 nanoseconds1) (MkClock seconds2 nanoseconds2) =
-  case compare seconds1 seconds2 of
-    LT => LT
-    GT => GT
-    EQ => compare nanoseconds1 nanoseconds2
+    case compare seconds1 seconds2 of
+      LT => LT
+      GT => GT
+      EQ => compare nanoseconds1 nanoseconds2
 
 public export
 Show (Clock type) where

src/Idris/Parser.idr

@@ -1231,6 +1231,7 @@ mutual
        = do b <- bounds $ do
                    decoratedSymbol fname "="
                    mustWork $ do
+                     continue indents
                      rhs <- typeExpr pdef fname indents
                      ws <- option [] $ whereBlock fname col
                      pure (rhs, ws)

src/Idris/Pretty.idr

@@ -313,7 +313,7 @@ mutual
     prettyPrec d (PDelay _ tm) = parenthesise (d > startPrec) $ "Delay" <++> prettyPrec appPrec tm
     prettyPrec d (PForce _ tm) = parenthesise (d > startPrec) $ "Force" <++> prettyPrec appPrec tm
     prettyPrec d (PAutoApp _ f a) =
-    parenthesise (d > startPrec) $ group $ prettyPrec leftAppPrec f <++> "@" <+> braces (pretty a)
+      parenthesise (d > startPrec) $ group $ prettyPrec leftAppPrec f <++> "@" <+> braces (pretty a)
     prettyPrec d (PNamedApp _ f n (PRef _ a)) =
       parenthesise (d > startPrec) $ group $
         if n == rawName a

tests/idris2/error/perror033/DeclIndent.idr

@@ -0,0 +1,4 @@
+namespace A
+  test : (x : Type -> Type) -> Type
+  test x =
+ x Type

tests/idris2/error/perror033/expected

@@ -0,0 +1,11 @@
+1/1: Building DeclIndent (DeclIndent.idr)
+Error: Couldn't parse any alternatives:
+1: Unexpected end of expression.
+
+DeclIndent:4:2--4:3
+ 1 | namespace A
+ 2 |   test : (x : Type -> Type) -> Type
+ 3 |   test x =
+ 4 |  x Type
+      ^
+... (2 others)

tests/idris2/error/perror033/run

@@ -0,0 +1,3 @@
+. ../../../testutils.sh
+
+check DeclIndent.idr