module Database.HaskellDB.DBLayout
(
module Database.HaskellDB.BoundedString,
module Database.HaskellDB.DBSpec,
CalendarTime,
Expr, Table, Attr, baseTable,
RecCons,RecNil,FieldTag,fieldName,
hdbMakeEntry,mkAttr,( # ))
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, (<<))
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