Work through error messages

compiler/src/parsing/parser.messages

@@ -2921,24 +2921,6 @@ program: IMPORT LBRACE WHILE
 
 Expected a list of comma-separated identifiers.
 
-program: IMPORT LPAREN WHILE
-##
-## Ends in an error in state: 125.
-##
-## non_modid -> lparen . special_op rparen [ THICKARROW STAREQ STAR SLASHEQ SLASH SEMI RPAREN RCARET RBRACK RBRACE PLUSPLUS PLUSEQ PLUS PIPEPIPE PIPE PERCENTEQ PERCENT NOTEQ LPAREN LESSEQ LCARETLCARET LCARET LBRACK ISNT IS GREATEREQ GETS FROM EQUAL EQEQ EOL EOF ELSE DOT DASHEQ DASH COMMA COLON CARET AS AMPAMP AMP ]
-##
-## The known suffix of the stack is as follows:
-## lparen
-##
-## WARNING: This example involves spurious reductions.
-## This implies that, although the LR(1) items shown above provide an
-## accurate view of the past (what has been recognized so far), they
-## may provide an INCOMPLETE view of the future (what was expected next).
-## In state 2, spurious reduction of production lparen -> LPAREN
-##
-
-Expected an infix or prefix operator, e.g. `+`, `-`, `!`.
-
 program: IMPORT STAR EXCEPT LBRACE WHILE
 ##
 ## Ends in an error in state: 850.

compiler/src/parsing/parser.mly

@@ -319,7 +319,7 @@ import_ids:
   | lseparated_nonempty_list(comma, aliasable(id)) comma? {$1}
 
 import_shape:
-  | id { PImportModule $1 }
+  | type_id { PImportModule $1 }
   | STAR import_exception? { PImportAllExcept (Option.value ~default:[] $2) }
   | lbrace import_ids? rbrace { PImportValues (Option.value ~default:[] $2) }