module IHP.IDE.SchemaDesigner.View.Columns.New where import IHP.ViewPrelude import IHP.IDE.SchemaDesigner.Types import IHP.IDE.ToolServer.Types import IHP.IDE.ToolServer.Routes () import IHP.IDE.SchemaDesigner.View.Layout import IHP.IDE.SchemaDesigner.View.Columns.Edit (typeSelector) import Text.Countable (singularize) data NewColumnView = NewColumnView { statements :: [Statement] , tableName :: Text , tableNames :: [Text] , enumNames :: [Text] } instance View NewColumnView where html NewColumnView { .. } = [hsx|