{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE AllowAmbiguousTypes, GeneralizedNewtypeDeriving #-} {-# LANGUAGE ScopedTypeVariables, TypeApplications, UndecidableInstances #-} module ForeignKey where import Data.Proxy import qualified Data.List as List import Init import Database.Persist.EntityDef.Internal (entityExtra) -- mpsGeneric = False is due to a bug or at least lack of a feature in mkKeyTypeDec TH.hs