DDNS/DB.hs

   1 ---------------------------------------------------------------------------
   2 -- Generated by DB/Direct
   3 ---------------------------------------------------------------------------
   4 module DDNS.DB where
   5
   6 import Database.HaskellDB.DBLayout
   7
   8 import qualified DDNS.DB.Zones
   9 import qualified DDNS.DB.Records
  10
  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)},
  17                                                CInfo {cname = "ns",
  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)}]}]}