persistent-2.18.0.0: test/Database/Persist/TH/MultiBlockSpec/Model.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE PartialTypeSignatures #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}

module Database.Persist.TH.MultiBlockSpec.Model where

import TemplateTestImports

share
    [ mkPersist sqlSettings
    , mkEntityDefList "importDefList"
    ]
    [persistLowerCase|

User
    name Text
    age  Int

    deriving Eq Show

MBDog
    name Text
    Primary name

MBCompositePrimary
    name    Text
    age     Int

    Primary name age

|]