User
    ident Text
    screenName Text
    password Text Maybe
    email Text Maybe
    locale Text default="ja"
    profile Text default=""
    amazon Text Maybe
    UniqueUser ident
    UserName screenName
  deriving Show Eq

Article
  author     UserId  Eq
  title      Text  Eq
  ident      Text Eq
  markup     String Maybe
  body       String
  createdDate Int Gt Lt Eq Desc
  createdTime Int Gt Lt Eq Desc
  modifiedAt  UTCTime Maybe Gt Lt Eq Desc
  UniqueArticle createdDate ident
  deriving Show Eq

Comment
  author    Text Eq
  body      Text
  password  Text Maybe
  createdAt UTCTime Asc
  article   ArticleId
  ipAddress String
  UniqueComment article author createdAt
  deriving Show Eq

Tag
  article ArticleId Eq
  name    Text Eq
  deriving Show Eq

Trackback
  article ArticleId Eq
  title Text Eq Maybe
  excerpt Text Maybe
  url Text Eq
  blogName Text Maybe
  UniqueTrackback article url
  deriving Show Eq

Banned
  ip String Eq Maybe
  author String Eq Maybe
  deriving Show Eq

 -- By default this file is used in Model.hs (which is imported by Foundation.hs)