1 ---------------------------------------------------------------------------
2 -- Generated by DB/Direct
3 ---------------------------------------------------------------------------
6 import Database.HaskellDB.DBLayout
8 import qualified DDNS.DB.Zones
9 import qualified DDNS.DB.Records
11 blackboardDNS :: DBInfo
12 blackboardDNS = DBInfo {dbname = "BlackboardDNS",
13 opts = DBOptions {useBString = False},
14 tbls = [TInfo {tname = "zones",
15 cols = [CInfo {cname = "zone",
16 descr = (StringT, False)},
18 descr = (StringT, False)},
19 CInfo {cname = "owner",
20 descr = (StringT, False)},
21 CInfo {cname = "serial",
22 descr = (IntT, False)},
23 CInfo {cname = "refresh",
24 descr = (IntT, False)},
25 CInfo {cname = "retry",
26 descr = (IntT, False)},
27 CInfo {cname = "expire",
28 descr = (IntT, False)},
29 CInfo {cname = "minTTL",
30 descr = (IntT, False)}]},
31 TInfo {tname = "records",
32 cols = [CInfo {cname = "name",
33 descr = (StringT, False)},
34 CInfo {cname = "zone",
35 descr = (StringT, False)},
36 CInfo {cname = "recType",
37 descr = (StringT, False)},
38 CInfo {cname = "recData",
39 descr = (StringT, False)}]}]}