{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}

module EntityEmbedTest where

-- because we are using a type alias we need to declare in a separate module
-- this is used in EmbedTest
import Init

mkPersist
    persistSettings{mpsGeneric = True}
    [persistUpperCase|
  ARecord
    name Text
    deriving Show Eq Read Ord
|]

type AnEntity = Entity ARecord