{-# OPTIONS_GHC -fcontext-stack44 #-}
-- NOTE: use GHC flag -fcontext-stack44 with this module if GHC < 6.8.1
---------------------------------------------------------------------------
-- Generated by DB/Direct
---------------------------------------------------------------------------
module DDNS.DB.Records where

import Database.HaskellDB.DBLayout

---------------------------------------------------------------------------
-- Table type
---------------------------------------------------------------------------

type Records =
    (RecCons Name (Expr String)
     (RecCons Zone (Expr String)
      (RecCons RecType (Expr String)
       (RecCons RecData (Expr String) RecNil))))

---------------------------------------------------------------------------
-- Table
---------------------------------------------------------------------------
records :: Table Records

records = baseTable "records" $
          hdbMakeEntry Name #
          hdbMakeEntry Zone #
          hdbMakeEntry RecType #
          hdbMakeEntry RecData

---------------------------------------------------------------------------
-- Fields
---------------------------------------------------------------------------
---------------------------------------------------------------------------
-- Name Field
---------------------------------------------------------------------------

data Name = Name

instance FieldTag Name where fieldName _ = "name"

name :: Attr Name String
name = mkAttr Name

---------------------------------------------------------------------------
-- Zone Field
---------------------------------------------------------------------------

data Zone = Zone

instance FieldTag Zone where fieldName _ = "zone"

zone :: Attr Zone String
zone = mkAttr Zone

---------------------------------------------------------------------------
-- RecType Field
---------------------------------------------------------------------------

data RecType = RecType

instance FieldTag RecType where fieldName _ = "recType"

recType :: Attr RecType String
recType = mkAttr RecType

---------------------------------------------------------------------------
-- RecData Field
---------------------------------------------------------------------------

data RecData = RecData

instance FieldTag RecData where fieldName _ = "recData"

recData :: Attr RecData String
recData = mkAttr RecData