persistent-2.14.3.2: test/Database/Persist/TH/PersistWith/Model.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}

module Database.Persist.TH.PersistWith.Model where

import TemplateTestImports

import Database.Persist.TH.PersistWith.Model2 as Model2

mkPersistWith sqlSettings $(discoverEntities) [persistLowerCase|

IceCream
    flavor  FlavorId
    otherFlavor Model2.FlavorId

|]