{-# OPTIONS -XTypeFamilies -XRankNTypes -XFlexibleContexts -XGADTs #-}


{- The config/models file looked like this:

User
    ident Text
    password Text Maybe
    UniqueUser ident

Email
    email Text
    user UserId Maybe
    verkey Text Maybe
    UniqueEmail email

A
    foo Text
    UniqueA foo

B
    foo Text
    UniqueB foo

C
    foo Text
    UniqueC foo

D
    foo Text
    UniqueD foo

E
    foo Text
    UniqueE foo

F
    foo Text
    UniqueF foo

G
    foo Text
    UniqueG foo

H
    foo Text
    UniqueH foo

I
    foo Text
    UniqueI foo
-}

import Database.Persist.Store
import qualified Data.Text
import Data.Text (Text)
import qualified Database.Persist.EntityDef
import qualified Data.Map
import qualified Database.Persist.GenericSql.Migration
import qualified Database.Persist.TH.Library
import qualified Database.Persist.GenericSql.Raw
import qualified Control.Monad
import qualified Control.Monad.IO.Class
import Control.Monad.Trans.Control
import Database.Persist.Postgresql


main = do
    let dbconf = PostgresConf undefined 1
    p <- Database.Persist.Store.createPoolConfig dbconf
    Database.Persist.Store.runPool dbconf (Database.Persist.GenericSql.Migration.runMigration migrateAll) p
    return ()


-- all code below this line was the direct output of -ddump-splices, I just fixed some names and syntax errors

instance PersistField (UserGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4e5
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["ident", "password"])
                 ((map toPersistValue) $ (toPersistFields ent_a4e5))))
  fromPersistValue
    = ((\ x_a4e6
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4e7)
                      -> case fromPersistValue v_a4e7 of
                           Left e'_a4e8 -> (error $ (Data.Text.unpack e'_a4e8))
                           Right r_a4e9 -> r_a4e9)
                   x_a4e6)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (EmailGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4ea
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["email", "user", "verkey"])
                 ((map toPersistValue) $ (toPersistFields ent_a4ea))))
  fromPersistValue
    = ((\ x_a4eb
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4ec)
                      -> case fromPersistValue v_a4ec of
                           Left e'_a4ed -> (error $ (Data.Text.unpack e'_a4ed))
                           Right r_a4ee -> r_a4ee)
                   x_a4eb)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (AGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4ef
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4ef))))
  fromPersistValue
    = ((\ x_a4eg
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4eh)
                      -> case fromPersistValue v_a4eh of
                           Left e'_a4ei -> (error $ (Data.Text.unpack e'_a4ei))
                           Right r_a4ej -> r_a4ej)
                   x_a4eg)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (BGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4ek
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4ek))))
  fromPersistValue
    = ((\ x_a4el
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4em)
                      -> case fromPersistValue v_a4em of
                           Left e'_a4en -> (error $ (Data.Text.unpack e'_a4en))
                           Right r_a4eo -> r_a4eo)
                   x_a4el)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (CGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4ep
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4ep))))
  fromPersistValue
    = ((\ x_a4eq
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4er)
                      -> case fromPersistValue v_a4er of
                           Left e'_a4es -> (error $ (Data.Text.unpack e'_a4es))
                           Right r_a4et -> r_a4et)
                   x_a4eq)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (DGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4eu
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4eu))))
  fromPersistValue
    = ((\ x_a4ev
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4ew)
                      -> case fromPersistValue v_a4ew of
                           Left e'_a4ex -> (error $ (Data.Text.unpack e'_a4ex))
                           Right r_a4ey -> r_a4ey)
                   x_a4ev)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (EGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4ez
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4ez))))
  fromPersistValue
    = ((\ x_a4eA
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4eB)
                      -> case fromPersistValue v_a4eB of
                           Left e'_a4eC -> (error $ (Data.Text.unpack e'_a4eC))
                           Right r_a4eD -> r_a4eD)
                   x_a4eA)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (FGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4eE
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4eE))))
  fromPersistValue
    = ((\ x_a4eF
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4eG)
                      -> case fromPersistValue v_a4eG of
                           Left e'_a4eH -> (error $ (Data.Text.unpack e'_a4eH))
                           Right r_a4eI -> r_a4eI)
                   x_a4eF)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (GGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4eJ
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4eJ))))
  fromPersistValue
    = ((\ x_a4eK
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4eL)
                      -> case fromPersistValue v_a4eL of
                           Left e'_a4eM -> (error $ (Data.Text.unpack e'_a4eM))
                           Right r_a4eN -> r_a4eN)
                   x_a4eK)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (HGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4eO
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4eO))))
  fromPersistValue
    = ((\ x_a4eP
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4eQ)
                      -> case fromPersistValue v_a4eQ of
                           Left e'_a4eR -> (error $ (Data.Text.unpack e'_a4eR))
                           Right r_a4eS -> r_a4eS)
                   x_a4eP)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
instance PersistField (IGeneric backend) where
  sqlType _ = Database.Persist.Store.SqlString
  toPersistValue
    = \ ent_a4eT
        -> (Database.Persist.Store.PersistMap
            $ (zip
                 (map Data.Text.pack ["foo"])
                 ((map toPersistValue) $ (toPersistFields ent_a4eT))))
  fromPersistValue
    = ((\ x_a4eU
          -> (fromPersistValues
              $ (map
                   (\ (_, v_a4eV)
                      -> case fromPersistValue v_a4eV of
                           Left e'_a4eW -> (error $ (Data.Text.unpack e'_a4eW))
                           Right r_a4eX -> r_a4eX)
                   x_a4eU)))
       Control.Monad.<=< Database.Persist.Store.getPersistMap)
data UserGeneric (backend :: (* -> *) -> * -> *)
    = User {userIdent :: Text, userPassword :: Maybe Text}
    deriving (Show, Read, Eq)
type User = UserGeneric Database.Persist.GenericSql.Raw.SqlPersist
type UserId = Key Database.Persist.GenericSql.Raw.SqlPersist User

instance PersistEntity (UserGeneric backend) where
  data Unique (UserGeneric backend) backend2
      = UniqueUser Text deriving (Show, Read, Eq)
  data EntityField (UserGeneric backend) typ
      = typ ~ Key backend (UserGeneric backend) => UserId |
        typ ~ Text => UserIdent |
        typ ~ Maybe Text => UserPassword
  type PersistEntityBackend (UserGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           [],
         Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName
              (Data.Text.pack "password"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           [Data.Text.pack "Maybe"]]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName
              (Data.Text.pack "UniqueUser"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (User x_a4eY x_a4eZ)
    = [Database.Persist.Store.SomePersistField x_a4eY,
       Database.Persist.Store.SomePersistField x_a4eZ]
  fromPersistValues [x_a4f0, x_a4f1]
    = (((Right User)
        `Database.Persist.TH.Library.apE` (fromPersistValue x_a4f0))
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4f1))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = User undefined undefined
  persistUniqueToFieldNames (UniqueUser {})
    = [(Database.Persist.EntityDef.HaskellName
          (Data.Text.pack "ident"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]
  persistUniqueToValues (UniqueUser x_a4f2) = [toPersistValue x_a4f2]
  persistUniqueKeys (User _ident_a4f3 _password_a4f4)
    = [UniqueUser _ident_a4f3]
  persistFieldDef UserId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "UserId"))
        []
  persistFieldDef UserIdent
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistFieldDef UserPassword
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName
           (Data.Text.pack "password"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        [Data.Text.pack "Maybe"]
  persistIdField = UserId
data EmailGeneric (backend :: (* -> *) -> * -> *)
    = Email {emailEmail :: Text,
             emailUser :: Maybe (Key backend (UserGeneric backend)),
             emailVerkey :: Maybe Text}
    deriving (Show, Read, Eq)
type Email =
    EmailGeneric Database.Persist.GenericSql.Raw.SqlPersist
type EmailId = Key Database.Persist.GenericSql.Raw.SqlPersist Email
instance PersistEntity (EmailGeneric backend) where
  data Unique (EmailGeneric backend) backend2
      = UniqueEmail Text deriving (Show, Read, Eq)
  data EntityField (EmailGeneric backend) typ
      = typ ~ Key backend (EmailGeneric backend) => EmailId |
        typ ~ Text => EmailEmail |
        typ ~ Maybe (Key backend (UserGeneric backend)) => EmailUser |
        typ ~ Maybe Text => EmailVerkey
  type PersistEntityBackend (EmailGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           [],
         Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "UserId"))
           [Data.Text.pack "Maybe"],
         Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           [Data.Text.pack "Maybe"]]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName
              (Data.Text.pack "UniqueEmail"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (Email x_a4f5 x_a4f6 x_a4f7)
    = [Database.Persist.Store.SomePersistField x_a4f5,
       Database.Persist.Store.SomePersistField x_a4f6,
       Database.Persist.Store.SomePersistField x_a4f7]
  fromPersistValues [x_a4f8, x_a4f9, x_a4fa]
    = ((((Right Email)
         `Database.Persist.TH.Library.apE` (fromPersistValue x_a4f8))
        `Database.Persist.TH.Library.apE` (fromPersistValue x_a4f9))
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fa))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = Email undefined undefined undefined
  persistUniqueToFieldNames (UniqueEmail {})
    = [(Database.Persist.EntityDef.HaskellName
          (Data.Text.pack "email"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]
  persistUniqueToValues (UniqueEmail x_a4fb)
    = [toPersistValue x_a4fb]
  persistUniqueKeys (Email _email_a4fc _user_a4fd _verkey_a4fe)
    = [UniqueEmail _email_a4fc]
  persistFieldDef EmailId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "EmailId"))
        []
  persistFieldDef EmailEmail
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistFieldDef EmailUser
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "UserId"))
        [Data.Text.pack "Maybe"]
  persistFieldDef EmailVerkey
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        [Data.Text.pack "Maybe"]
  persistIdField = EmailId
data AGeneric (backend :: (* -> *) -> * -> *)
    = A {aFoo :: Text} deriving (Show, Read, Eq)
type A = AGeneric Database.Persist.GenericSql.Raw.SqlPersist
type AId = Key Database.Persist.GenericSql.Raw.SqlPersist A
instance PersistEntity (AGeneric backend) where
  data Unique (AGeneric backend) backend2
      = UniqueA Text deriving (Show, Read, Eq)
  data EntityField (AGeneric backend) typ
      = typ ~ Key backend (AGeneric backend) => AId | typ ~ Text => AFoo
  type PersistEntityBackend (AGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (A x_a4ff)
    = [Database.Persist.Store.SomePersistField x_a4ff]
  fromPersistValues [x_a4fg]
    = ((Right A)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fg))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = A undefined
  persistUniqueToFieldNames (UniqueA {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueA x_a4fh) = [toPersistValue x_a4fh]
  persistUniqueKeys (A _foo_a4fi) = [UniqueA _foo_a4fi]
  persistFieldDef AId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "AId"))
        []
  persistFieldDef AFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = AId
data BGeneric (backend :: (* -> *) -> * -> *)
    = B {bFoo :: Text} deriving (Show, Read, Eq)
type B = BGeneric Database.Persist.GenericSql.Raw.SqlPersist
type BId = Key Database.Persist.GenericSql.Raw.SqlPersist B
instance PersistEntity (BGeneric backend) where
  data Unique (BGeneric backend) backend2
      = UniqueB Text deriving (Show, Read, Eq)
  data EntityField (BGeneric backend) typ
      = typ ~ Key backend (BGeneric backend) => BId | typ ~ Text => BFoo
  type PersistEntityBackend (BGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (B x_a4fj)
    = [Database.Persist.Store.SomePersistField x_a4fj]
  fromPersistValues [x_a4fk]
    = ((Right B)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fk))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = B undefined
  persistUniqueToFieldNames (UniqueB {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueB x_a4fl) = [toPersistValue x_a4fl]
  persistUniqueKeys (B _foo_a4fm) = [UniqueB _foo_a4fm]
  persistFieldDef BId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "BId"))
        []
  persistFieldDef BFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = BId
data CGeneric (backend :: (* -> *) -> * -> *)
    = C {cFoo :: Text} deriving (Show, Read, Eq)
type C = CGeneric Database.Persist.GenericSql.Raw.SqlPersist
type CId = Key Database.Persist.GenericSql.Raw.SqlPersist C
instance PersistEntity (CGeneric backend) where
  data Unique (CGeneric backend) backend2
      = UniqueC Text deriving (Show, Read, Eq)
  data EntityField (CGeneric backend) typ
      = typ ~ Key backend (CGeneric backend) => CId | typ ~ Text => CFoo
  type PersistEntityBackend (CGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (C x_a4fn)
    = [Database.Persist.Store.SomePersistField x_a4fn]
  fromPersistValues [x_a4fo]
    = ((Right C)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fo))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = C undefined
  persistUniqueToFieldNames (UniqueC {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueC x_a4fp) = [toPersistValue x_a4fp]
  persistUniqueKeys (C _foo_a4fq) = [UniqueC _foo_a4fq]
  persistFieldDef CId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "CId"))
        []
  persistFieldDef CFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = CId
data DGeneric (backend :: (* -> *) -> * -> *)
    = D {dFoo :: Text} deriving (Show, Read, Eq)
type D = DGeneric Database.Persist.GenericSql.Raw.SqlPersist
type DId = Key Database.Persist.GenericSql.Raw.SqlPersist D
instance PersistEntity (DGeneric backend) where
  data Unique (DGeneric backend) backend2
      = UniqueD Text deriving (Show, Read, Eq)
  data EntityField (DGeneric backend) typ
      = typ ~ Key backend (DGeneric backend) => DId | typ ~ Text => DFoo
  type PersistEntityBackend (DGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (D x_a4fr)
    = [Database.Persist.Store.SomePersistField x_a4fr]
  fromPersistValues [x_a4fs]
    = ((Right D)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fs))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = D undefined
  persistUniqueToFieldNames (UniqueD {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueD x_a4ft) = [toPersistValue x_a4ft]
  persistUniqueKeys (D _foo_a4fu) = [UniqueD _foo_a4fu]
  persistFieldDef DId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "DId"))
        []
  persistFieldDef DFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = DId
data EGeneric (backend :: (* -> *) -> * -> *)
    = E {eFoo :: Text} deriving (Show, Read, Eq)
type E = EGeneric Database.Persist.GenericSql.Raw.SqlPersist
type EId = Key Database.Persist.GenericSql.Raw.SqlPersist E
instance PersistEntity (EGeneric backend) where
  data Unique (EGeneric backend) backend2
      = UniqueE Text deriving (Show, Read, Eq)
  data EntityField (EGeneric backend) typ
      = typ ~ Key backend (EGeneric backend) => EId | typ ~ Text => EFoo
  type PersistEntityBackend (EGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (E x_a4fv)
    = [Database.Persist.Store.SomePersistField x_a4fv]
  fromPersistValues [x_a4fw]
    = ((Right E)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fw))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = E undefined
  persistUniqueToFieldNames (UniqueE {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueE x_a4fx) = [toPersistValue x_a4fx]
  persistUniqueKeys (E _foo_a4fy) = [UniqueE _foo_a4fy]
  persistFieldDef EId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "EId"))
        []
  persistFieldDef EFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = EId
data FGeneric (backend :: (* -> *) -> * -> *)
    = F {fFoo :: Text} deriving (Show, Read, Eq)
type F = FGeneric Database.Persist.GenericSql.Raw.SqlPersist
type FId = Key Database.Persist.GenericSql.Raw.SqlPersist F
instance PersistEntity (FGeneric backend) where
  data Unique (FGeneric backend) backend2
      = UniqueF Text deriving (Show, Read, Eq)
  data EntityField (FGeneric backend) typ
      = typ ~ Key backend (FGeneric backend) => FId | typ ~ Text => FFoo
  type PersistEntityBackend (FGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (F x_a4fz)
    = [Database.Persist.Store.SomePersistField x_a4fz]
  fromPersistValues [x_a4fA]
    = ((Right F)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fA))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = F undefined
  persistUniqueToFieldNames (UniqueF {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueF x_a4fB) = [toPersistValue x_a4fB]
  persistUniqueKeys (F _foo_a4fC) = [UniqueF _foo_a4fC]
  persistFieldDef FId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "FId"))
        []
  persistFieldDef FFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = FId
data GGeneric (backend :: (* -> *) -> * -> *)
    = G {gFoo :: Text} deriving (Show, Read, Eq)
type G = GGeneric Database.Persist.GenericSql.Raw.SqlPersist
type GId = Key Database.Persist.GenericSql.Raw.SqlPersist G
instance PersistEntity (GGeneric backend) where
  data Unique (GGeneric backend) backend2
      = UniqueG Text deriving (Show, Read, Eq)
  data EntityField (GGeneric backend) typ
      = typ ~ Key backend (GGeneric backend) => GId | typ ~ Text => GFoo
  type PersistEntityBackend (GGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (G x_a4fD)
    = [Database.Persist.Store.SomePersistField x_a4fD]
  fromPersistValues [x_a4fE]
    = ((Right G)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fE))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = G undefined
  persistUniqueToFieldNames (UniqueG {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueG x_a4fF) = [toPersistValue x_a4fF]
  persistUniqueKeys (G _foo_a4fG) = [UniqueG _foo_a4fG]
  persistFieldDef GId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "GId"))
        []
  persistFieldDef GFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = GId
data HGeneric (backend :: (* -> *) -> * -> *)
    = H {hFoo :: Text} deriving (Show, Read, Eq)
type H = HGeneric Database.Persist.GenericSql.Raw.SqlPersist
type HId = Key Database.Persist.GenericSql.Raw.SqlPersist H
instance PersistEntity (HGeneric backend) where
  data Unique (HGeneric backend) backend2
      = UniqueH Text deriving (Show, Read, Eq)
  data EntityField (HGeneric backend) typ
      = typ ~ Key backend (HGeneric backend) => HId | typ ~ Text => HFoo
  type PersistEntityBackend (HGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (H x_a4fH)
    = [Database.Persist.Store.SomePersistField x_a4fH]
  fromPersistValues [x_a4fI]
    = ((Right H)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fI))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = H undefined
  persistUniqueToFieldNames (UniqueH {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueH x_a4fJ) = [toPersistValue x_a4fJ]
  persistUniqueKeys (H _foo_a4fK) = [UniqueH _foo_a4fK]
  persistFieldDef HId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "HId"))
        []
  persistFieldDef HFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = HId
data IGeneric (backend :: (* -> *) -> * -> *)
    = I {iFoo :: Text} deriving (Show, Read, Eq)
type I = IGeneric Database.Persist.GenericSql.Raw.SqlPersist
type IId = Key Database.Persist.GenericSql.Raw.SqlPersist I
instance PersistEntity (IGeneric backend) where
  data Unique (IGeneric backend) backend2
      = UniqueI Text deriving (Show, Read, Eq)
  data EntityField (IGeneric backend) typ
      = typ ~ Key backend (IGeneric backend) => IId | typ ~ Text => IFoo
  type PersistEntityBackend (IGeneric backend) = backend
  entityDef _
    = Database.Persist.EntityDef.EntityDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        []
        [Database.Persist.EntityDef.FieldDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
           (Database.Persist.EntityDef.FTTypeCon
              Nothing (Data.Text.pack "Text"))
           []]
        [Database.Persist.EntityDef.UniqueDef
           (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
           (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
           [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
             Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
        [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
        (Data.Map.fromList [])
  toPersistFields (I x_a4fL)
    = [Database.Persist.Store.SomePersistField x_a4fL]
  fromPersistValues [x_a4fM]
    = ((Right I)
       `Database.Persist.TH.Library.apE` (fromPersistValue x_a4fM))
  fromPersistValues _
    = Left (Data.Text.pack "Invalid fromPersistValues input")
  halfDefined = I undefined
  persistUniqueToFieldNames (UniqueI {})
    = [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
        Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]
  persistUniqueToValues (UniqueI x_a4fN) = [toPersistValue x_a4fN]
  persistUniqueKeys (I _foo_a4fO) = [UniqueI _foo_a4fO]
  persistFieldDef IId
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Id"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "IId"))
        []
  persistFieldDef IFoo
    = Database.Persist.EntityDef.FieldDef
        (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
        (Database.Persist.EntityDef.FTTypeCon
           Nothing (Data.Text.pack "Text"))
        []
  persistIdField = IId
migrateAll ::
  forall m. (MonadBaseControl IO m,
             Control.Monad.IO.Class.MonadIO m) =>
  Database.Persist.GenericSql.Migration.Migration (Database.Persist.GenericSql.Raw.SqlPersist m)

migrateAll
  = do { Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: User);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: Email);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: A);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: B);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: C);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: D);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: E);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: F);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: G);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: H);
         Database.Persist.GenericSql.Migration.migrate
           [Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "User"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "password"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueUser"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_user"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "ident"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "ident"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "Email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "email"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "user"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "UserId"))
                 [Data.Text.pack "Maybe"],
               Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "verkey"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 [Data.Text.pack "Maybe"]]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName
                    (Data.Text.pack "UniqueEmail"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_email"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "email"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "email"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "A"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "a"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueA"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_a"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "B"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "b"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueB"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_b"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "C"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "c"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueC"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_c"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "D"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "d"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueD"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_d"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "E"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "e"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueE"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_e"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "F"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "f"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueF"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_f"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "G"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "g"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueG"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_g"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "H"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "h"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueH"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_h"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList []),
            Database.Persist.EntityDef.EntityDef
              (Database.Persist.EntityDef.HaskellName (Data.Text.pack "I"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "i"))
              (Database.Persist.EntityDef.DBName (Data.Text.pack "id"))
              []
              [Database.Persist.EntityDef.FieldDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))
                 (Database.Persist.EntityDef.FTTypeCon
                    Nothing (Data.Text.pack "Text"))
                 []]
              [Database.Persist.EntityDef.UniqueDef
                 (Database.Persist.EntityDef.HaskellName (Data.Text.pack "UniqueI"))
                 (Database.Persist.EntityDef.DBName (Data.Text.pack "unique_i"))
                 [(Database.Persist.EntityDef.HaskellName (Data.Text.pack "foo"),
                   Database.Persist.EntityDef.DBName (Data.Text.pack "foo"))]]
              [Data.Text.pack "Show", Data.Text.pack "Read", Data.Text.pack "Eq"]
              (Data.Map.fromList [])]
           (undefined :: I) }