Improve error message and some tests

src/Cryptol/Parser/ParserUtils.hs

@@ -81,11 +81,11 @@ lexerP k = P $ \cfg p s ->
                                     T.unpack (tokenText it)
            MalformedSelector   -> "malformed selector: " ++
                                     T.unpack (tokenText it)
-           InvalidIndentation c -> "invalid indentation, expected " ++
+           InvalidIndentation c -> "invalid indentation, unmatched " ++
               case c of
-                Sym CurlyR    -> "}"
-                Sym ParenR    -> ")"
-                Sym BracketR  -> "]"
+                Sym CurlyR    -> "{ ... } "
+                Sym ParenR    -> "( ... )"
+                Sym BracketR  -> "[ ... ]"
                 _             -> show c -- basically panic
         ]
       where it = thing t

tests/issues/T1179.cry

@@ -0,0 +1,5 @@
+module T1179 where
+
+x = 0x2
+private
+y = x

tests/issues/T1179.icry

@@ -0,0 +1 @@
+:load T1179.cry

tests/issues/T1179.icry.stdout

@@ -0,0 +1,3 @@
+Loading module Cryptol
+Loading module Cryptol
+Loading module T1179

tests/regression/Layout02.cry

@@ -0,0 +1,4 @@
+module Layout02 where
+
+x = 0x1 where y = ( 2
+          )

tests/regression/layout02.icry

@@ -0,0 +1 @@
+:load Layout02.cry

tests/regression/layout02.icry.stdout

@@ -0,0 +1,4 @@
+Loading module Cryptol
+
+Parse error at Layout02.cry:4:11--4:11
+  invalid indentation, unmatched ( ... )