Allow not specifying types for column defs

Language/SQL/SimpleSQL/Dialect.hs

@@ -98,6 +98,8 @@ data Dialect = Dialect
     ,diNonCommaSeparatedConstraints :: Bool
      -- | allow marking tables as "without rowid"
     ,diWithoutRowidTables :: Bool
+     -- | allow omitting types for columns
+    ,diOptionalColumnTypes :: Bool
     }
                deriving (Eq,Show,Read,Data,Typeable)
 
@@ -123,6 +125,7 @@ ansi2011 = Dialect {diKeywords = ansi2011ReservedKeywords
                    ,diAutoincrement = False
                    ,diNonCommaSeparatedConstraints = False
                    ,diWithoutRowidTables = False
+                   ,diOptionalColumnTypes = False
                    }
 
 -- | mysql dialect

Language/SQL/SimpleSQL/Parse.hs

@@ -1737,9 +1737,12 @@ createIndex =
     <*> parens (commaSep1 (name "column name"))
 
 columnDef :: Parser ColumnDef
-columnDef = ColumnDef <$> name "column name" <*> typeName
-            <*> optional defaultClause
-            <*> option [] (some colConstraintDef)
+columnDef = do
+  optionalType <- askDialect diOptionalColumnTypes
+  ColumnDef <$> name "column name"
+    <*> (if optionalType then optional typeName else Just <$> typeName)
+    <*> optional defaultClause
+    <*> option [] (some colConstraintDef)
   where
     defaultClause = label "column default clause" $ choice [
         keyword_ "default" >>

Language/SQL/SimpleSQL/Pretty.hs

@@ -700,7 +700,7 @@ dropBehav Restrict = pretty "restrict"
 
 columnDef :: Dialect -> ColumnDef -> Doc a
 columnDef d (ColumnDef n t mdef cons) =
-      name n <+> typeName t
+      name n <+> maybe mempty typeName t
       <+> case mdef of
              Nothing -> mempty
              Just (DefaultClause def) ->

Language/SQL/SimpleSQL/Syntax.hs

@@ -553,7 +553,7 @@ data TableElement =
   | TableConstraintDef (Maybe [Name]) TableConstraint
     deriving (Eq,Show,Read,Data,Typeable)
 
-data ColumnDef = ColumnDef Name TypeName
+data ColumnDef = ColumnDef Name (Maybe TypeName)
        (Maybe DefaultClause)
        [ColConstraintDef]
        -- (Maybe CollateClause)