module Database.HaskellDB.DBLayout
(module Database.HaskellDB.BoundedString
, module Database.HaskellDB.DBSpec
, CalendarTime
, Expr, Table, Attr, baseTable
, RecCons, RecNil, FieldTag, fieldName
, hdbMakeEntry, mkAttr, ( # )
, emptyTable)
where
import Database.HaskellDB.HDBRec(Record, RecCons, RecNil, FieldTag
, fieldName, ( # ))
import Database.HaskellDB.BoundedString
import System.Time (CalendarTime)
import Database.HaskellDB.Query (Expr, Table, Attr(..)
, baseTable, attribute, (<<), emptyTable)
import Database.HaskellDB.DBSpec
import Database.HaskellDB.FieldType (FieldType(..))
hdbMakeEntry :: FieldTag f =>
f
-> Record (RecCons f (Expr a) RecNil)
hdbMakeEntry f = undefined << attribute (fieldName f)
mkAttr :: FieldTag f =>
f
-> Attr f a
mkAttr = Attr . fieldName