1 {-# OPTIONS_GHC -fcontext-stack44 #-}
2 -- NOTE: use GHC flag -fcontext-stack44 with this module if GHC < 6.8.1
3 ---------------------------------------------------------------------------
4 -- Generated by DB/Direct
5 ---------------------------------------------------------------------------
6 module DDNS.DB.Records where
8 import Database.HaskellDB.DBLayout
10 ---------------------------------------------------------------------------
12 ---------------------------------------------------------------------------
15 (RecCons Name (Expr String)
16 (RecCons Zone (Expr String)
17 (RecCons RecType (Expr String)
18 (RecCons RecData (Expr String) RecNil))))
20 ---------------------------------------------------------------------------
22 ---------------------------------------------------------------------------
23 records :: Table Records
25 records = baseTable "records" $
28 hdbMakeEntry RecType #
31 ---------------------------------------------------------------------------
33 ---------------------------------------------------------------------------
34 ---------------------------------------------------------------------------
36 ---------------------------------------------------------------------------
40 instance FieldTag Name where fieldName _ = "name"
42 name :: Attr Name String
45 ---------------------------------------------------------------------------
47 ---------------------------------------------------------------------------
51 instance FieldTag Zone where fieldName _ = "zone"
53 zone :: Attr Zone String
56 ---------------------------------------------------------------------------
58 ---------------------------------------------------------------------------
60 data RecType = RecType
62 instance FieldTag RecType where fieldName _ = "recType"
64 recType :: Attr RecType String
65 recType = mkAttr RecType
67 ---------------------------------------------------------------------------
69 ---------------------------------------------------------------------------
71 data RecData = RecData
73 instance FieldTag RecData where fieldName _ = "recData"
75 recData :: Attr RecData String
76 recData = mkAttr RecData