Allow any expression in type modifiers list

Fixes #121

Author: nene

src/cst/DataType.ts

@@ -1,8 +1,8 @@
 import { BaseNode, Empty, Keyword } from "./Base";
 import { ColumnConstraint } from "./Constraint";
 import { ColumnDefinition } from "./CreateTable";
-import { EntityName, Identifier, ListExpr, ParenExpr } from "./Expr";
-import { Literal, NumberLiteral } from "./Literal";
+import { EntityName, Expr, Identifier, ListExpr, ParenExpr } from "./Expr";
+import { NumberLiteral } from "./Literal";
 
 export type AllDataTypeNodes =
   | DataType
@@ -23,7 +23,7 @@ export interface NamedDataType extends BaseNode {
   type: "named_data_type";
   // in PostgreSQL all data types will be parsed as DataTypeIdentifier
   name: Keyword | Keyword[] | DataTypeIdentifier;
-  params?: ParenExpr<ListExpr<Literal>> | GenericTypeParams;
+  params?: ParenExpr<ListExpr<Expr>> | GenericTypeParams;
 }
 
 // PostgreSQL

src/parser.pegjs

@@ -7030,7 +7030,7 @@ with_time_zone_data_type
   / named_data_type
 
 named_data_type
-  = kw:(type_name __) params:paren$list$literal {
+  = kw:(type_name __) params:paren$list$expr {
     return loc({ type: "named_data_type", name: read(kw), params });
   }
   / &bigquery type:(bigquery_array_type / bigquery_struct_type / bigquery_table_type) {

test/ddl/data_types.test.ts

@@ -393,6 +393,13 @@ describe("data types", () => {
       testType("public.my_type");
     });
 
+    it("supports geometry types", () => {
+      testType("GEOMETRY");
+      testType("GEOMETRY(POLYGON, 3395)");
+      testType("GEOMETRY(POINT, 4326)");
+      testType("GEOMETRY(LINESTRINGZM, 4269)");
+    });
+
     it("parses data types as identifiers", () => {
       expect(parseExpr(`foo :: Character Varying`)).toMatchInlineSnapshot(`
         {