milesfrain

data Column v = Column String

data Table columnRow = Table {name :: String, columns :: Record columnRow}

data Select tableColumns selectedColumns = Select
  (Record tableColumns -> Record selectedColumns)
  (Table tableColumns)

data ToStr = ToStr