{-# LANGUAGE EmptyDataDecls, TypeSynonymInstances #-}
{-# OPTIONS_GHC -fcontext-stack60 #-}
---------------------------------------------------------------------------
-- Generated by DB/Direct
---------------------------------------------------------------------------
module DB1.Hdb_t2 where

import Database.HaskellDB.DBLayout

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

type Hdb_t2 =
    (RecCons T2f01 (Expr (Maybe String))
     (RecCons T2f02 (Expr String)
      (RecCons T2f03 (Expr (Maybe String))
       (RecCons T2f04 (Expr String)
        (RecCons T2f05 (Expr (Maybe Int))
         (RecCons T2f06 (Expr Int)
          (RecCons T2f07 (Expr (Maybe Int))
           (RecCons T2f08 (Expr Int)
            (RecCons T2f09 (Expr (Maybe Integer))
             (RecCons T2f10 (Expr Integer)
              (RecCons T2f11 (Expr (Maybe Integer))
               (RecCons T2f12 (Expr Integer)
                (RecCons T2f13 (Expr (Maybe Double))
                 (RecCons T2f14 (Expr Double)
                  (RecCons T2f15 (Expr (Maybe Double))
                   (RecCons T2f16 (Expr Double)
                    (RecCons T2f21 (Expr (Maybe CalendarTime))
                     (RecCons T2f22 (Expr CalendarTime)
                      (RecCons T2f23 (Expr (Maybe CalendarTime))
                       (RecCons T2f24 (Expr CalendarTime) RecNil))))))))))))))))))))

---------------------------------------------------------------------------
-- Table
---------------------------------------------------------------------------
hdb_t2 :: Table Hdb_t2
hdb_t2 = baseTable "hdb_t2" $
         hdbMakeEntry T2f01 #
         hdbMakeEntry T2f02 #
         hdbMakeEntry T2f03 #
         hdbMakeEntry T2f04 #
         hdbMakeEntry T2f05 #
         hdbMakeEntry T2f06 #
         hdbMakeEntry T2f07 #
         hdbMakeEntry T2f08 #
         hdbMakeEntry T2f09 #
         hdbMakeEntry T2f10 #
         hdbMakeEntry T2f11 #
         hdbMakeEntry T2f12 #
         hdbMakeEntry T2f13 #
         hdbMakeEntry T2f14 #
         hdbMakeEntry T2f15 #
         hdbMakeEntry T2f16 #
         hdbMakeEntry T2f21 #
         hdbMakeEntry T2f22 #
         hdbMakeEntry T2f23 #
         hdbMakeEntry T2f24

---------------------------------------------------------------------------
-- Fields
---------------------------------------------------------------------------
---------------------------------------------------------------------------
-- T2f01 Field
---------------------------------------------------------------------------

data T2f01 = T2f01

instance FieldTag T2f01 where fieldName _ = "t2f01"

t2f01 :: Attr T2f01 (Maybe String)
t2f01 = mkAttr T2f01

---------------------------------------------------------------------------
-- T2f02 Field
---------------------------------------------------------------------------

data T2f02 = T2f02

instance FieldTag T2f02 where fieldName _ = "t2f02"

t2f02 :: Attr T2f02 String
t2f02 = mkAttr T2f02

---------------------------------------------------------------------------
-- T2f03 Field
---------------------------------------------------------------------------

data T2f03 = T2f03

instance FieldTag T2f03 where fieldName _ = "t2f03"

t2f03 :: Attr T2f03 (Maybe String)
t2f03 = mkAttr T2f03

---------------------------------------------------------------------------
-- T2f04 Field
---------------------------------------------------------------------------

data T2f04 = T2f04

instance FieldTag T2f04 where fieldName _ = "t2f04"

t2f04 :: Attr T2f04 String
t2f04 = mkAttr T2f04

---------------------------------------------------------------------------
-- T2f05 Field
---------------------------------------------------------------------------

data T2f05 = T2f05

instance FieldTag T2f05 where fieldName _ = "t2f05"

t2f05 :: Attr T2f05 (Maybe Int)
t2f05 = mkAttr T2f05

---------------------------------------------------------------------------
-- T2f06 Field
---------------------------------------------------------------------------

data T2f06 = T2f06

instance FieldTag T2f06 where fieldName _ = "t2f06"

t2f06 :: Attr T2f06 Int
t2f06 = mkAttr T2f06

---------------------------------------------------------------------------
-- T2f07 Field
---------------------------------------------------------------------------

data T2f07 = T2f07

instance FieldTag T2f07 where fieldName _ = "t2f07"

t2f07 :: Attr T2f07 (Maybe Int)
t2f07 = mkAttr T2f07

---------------------------------------------------------------------------
-- T2f08 Field
---------------------------------------------------------------------------

data T2f08 = T2f08

instance FieldTag T2f08 where fieldName _ = "t2f08"

t2f08 :: Attr T2f08 Int
t2f08 = mkAttr T2f08

---------------------------------------------------------------------------
-- T2f09 Field
---------------------------------------------------------------------------

data T2f09 = T2f09

instance FieldTag T2f09 where fieldName _ = "t2f09"

t2f09 :: Attr T2f09 (Maybe Integer)
t2f09 = mkAttr T2f09

---------------------------------------------------------------------------
-- T2f10 Field
---------------------------------------------------------------------------

data T2f10 = T2f10

instance FieldTag T2f10 where fieldName _ = "t2f10"

t2f10 :: Attr T2f10 Integer
t2f10 = mkAttr T2f10

---------------------------------------------------------------------------
-- T2f11 Field
---------------------------------------------------------------------------

data T2f11 = T2f11

instance FieldTag T2f11 where fieldName _ = "t2f11"

t2f11 :: Attr T2f11 (Maybe Integer)
t2f11 = mkAttr T2f11

---------------------------------------------------------------------------
-- T2f12 Field
---------------------------------------------------------------------------

data T2f12 = T2f12

instance FieldTag T2f12 where fieldName _ = "t2f12"

t2f12 :: Attr T2f12 Integer
t2f12 = mkAttr T2f12

---------------------------------------------------------------------------
-- T2f13 Field
---------------------------------------------------------------------------

data T2f13 = T2f13

instance FieldTag T2f13 where fieldName _ = "t2f13"

t2f13 :: Attr T2f13 (Maybe Double)
t2f13 = mkAttr T2f13

---------------------------------------------------------------------------
-- T2f14 Field
---------------------------------------------------------------------------

data T2f14 = T2f14

instance FieldTag T2f14 where fieldName _ = "t2f14"

t2f14 :: Attr T2f14 Double
t2f14 = mkAttr T2f14

---------------------------------------------------------------------------
-- T2f15 Field
---------------------------------------------------------------------------

data T2f15 = T2f15

instance FieldTag T2f15 where fieldName _ = "t2f15"

t2f15 :: Attr T2f15 (Maybe Double)
t2f15 = mkAttr T2f15

---------------------------------------------------------------------------
-- T2f16 Field
---------------------------------------------------------------------------

data T2f16 = T2f16

instance FieldTag T2f16 where fieldName _ = "t2f16"

t2f16 :: Attr T2f16 Double
t2f16 = mkAttr T2f16

---------------------------------------------------------------------------
-- T2f21 Field
---------------------------------------------------------------------------

data T2f21 = T2f21

instance FieldTag T2f21 where fieldName _ = "t2f21"

t2f21 :: Attr T2f21 (Maybe CalendarTime)
t2f21 = mkAttr T2f21

---------------------------------------------------------------------------
-- T2f22 Field
---------------------------------------------------------------------------

data T2f22 = T2f22

instance FieldTag T2f22 where fieldName _ = "t2f22"

t2f22 :: Attr T2f22 CalendarTime
t2f22 = mkAttr T2f22

---------------------------------------------------------------------------
-- T2f23 Field
---------------------------------------------------------------------------

data T2f23 = T2f23

instance FieldTag T2f23 where fieldName _ = "t2f23"

t2f23 :: Attr T2f23 (Maybe CalendarTime)
t2f23 = mkAttr T2f23

---------------------------------------------------------------------------
-- T2f24 Field
---------------------------------------------------------------------------

data T2f24 = T2f24

instance FieldTag T2f24 where fieldName _ = "t2f24"

t2f24 :: Attr T2f24 CalendarTime
t2f24 = mkAttr T2f24