on fadfc3e help sign in
rel8/src/Rel8/Schema/Table.hs
18 lines 282 B history raw
1{-# language DeriveFunctor #-}
2{-# language DerivingStrategies #-}
4module Rel8.Schema.Table
5 ( TableSchema(..)
6 )
7where
9-- base
10import Prelude
13data TableSchema names = TableSchema
14 { name :: String
15 , schema :: Maybe String
16 , columns :: names
17 }
18 deriving stock Functor