Safe Haskell | None |
---|---|
Language | Haskell2010 |
- data PersonGeneric backend = Person {
- personName :: !Text
- personAge :: !Int
- personColor :: !(Maybe Text)
- type Person = PersonGeneric SqlBackend
- type PersonId = Key Person
- data Person1Generic backend = Person1 {
- person1Name :: !Text
- person1Age :: !Int
- type Person1 = Person1Generic SqlBackend
- type Person1Id = Key Person1
- data PersonMaybeAgeGeneric backend = PersonMaybeAge {
- personMaybeAgeName :: !Text
- personMaybeAgeAge :: !(Maybe Int)
- type PersonMaybeAge = PersonMaybeAgeGeneric SqlBackend
- type PersonMaybeAgeId = Key PersonMaybeAge
- data PersonMayGeneric backend = PersonMay {
- personMayName :: !(Maybe Text)
- personMayColor :: !(Maybe Text)
- type PersonMay = PersonMayGeneric SqlBackend
- type PersonMayId = Key PersonMay
- data PetGeneric backend = Pet {
- petOwnerId :: !(Key (PersonGeneric backend))
- petName :: !Text
- petType :: !PetType
- type Pet = PetGeneric SqlBackend
- type PetId = Key Pet
- data MaybeOwnedPetGeneric backend = MaybeOwnedPet {
- maybeOwnedPetOwnerId :: !(Maybe (Key (PersonGeneric backend)))
- maybeOwnedPetName :: !Text
- maybeOwnedPetType :: !PetType
- type MaybeOwnedPet = MaybeOwnedPetGeneric SqlBackend
- type MaybeOwnedPetId = Key MaybeOwnedPet
- data NeedsPetGeneric backend = NeedsPet {
- needsPetPetKey :: !(Key (PetGeneric backend))
- type NeedsPet = NeedsPetGeneric SqlBackend
- type NeedsPetId = Key NeedsPet
- data OutdoorPetGeneric backend = OutdoorPet {
- outdoorPetOwnerId :: !(Key (PersonGeneric backend))
- outdoorPetCollar :: !PetCollar
- outdoorPetType :: !PetType
- type OutdoorPet = OutdoorPetGeneric SqlBackend
- type OutdoorPetId = Key OutdoorPet
- data UserPTGeneric backend = UserPT {
- userPTIdent :: !Text
- userPTPassword :: !(Maybe Text)
- type UserPT = UserPTGeneric SqlBackend
- type UserPTId = Key UserPT
- data EmailPTGeneric backend = EmailPT {
- emailPTEmail :: !Text
- emailPTUser :: !(Maybe (Key (UserPTGeneric backend)))
- emailPTVerkey :: !(Maybe Text)
- type EmailPT = EmailPTGeneric SqlBackend
- type EmailPTId = Key EmailPT
- data UpsertGeneric backend = Upsert {
- upsertEmail :: !Text
- upsertAttr :: !Text
- upsertExtra :: !Text
- upsertAge :: !Int
- type Upsert = UpsertGeneric SqlBackend
- type UpsertId = Key Upsert
- data UpsertByGeneric backend = UpsertBy {
- upsertByEmail :: !Text
- upsertByCity :: !Text
- upsertByAttr :: !Text
- type UpsertBy = UpsertByGeneric SqlBackend
- type UpsertById = Key UpsertBy
- data StrictGeneric backend = Strict {}
- type Strict = StrictGeneric SqlBackend
- type StrictId = Key Strict
- _ignoredSave :: [EntityDef]
- testMigrate :: Migration
- data NoPrefix1 = NoPrefix1 {
- someFieldName :: !Int
- type NoPrefix1Id = Key NoPrefix1
- data NoPrefix2 = NoPrefix2 {
- someOtherFieldName :: !Int
- unprefixedRef :: !(Key NoPrefix1)
- type NoPrefix2Id = Key NoPrefix2
- data NoPrefixSum
- type NoPrefixSumId = Key NoPrefixSum
- noPrefixMigrate :: Migration
- cleanDB :: (MonadIO m, PersistQuery backend, PersistEntityBackend EmailPT ~ backend) => ReaderT backend m ()
- catchPersistException :: MonadUnliftIO m => m a -> b -> m b
- specs :: Spec
- newtype ReverseFieldOrder a = RFO {
- unRFO :: a
- caseCommitRollback :: Assertion
- _polymorphic :: (MonadIO m, PersistQuery backend, BaseBackend backend ~ PersistEntityBackend Pet) => ReaderT backend m ()
- type ASetter s t a b = (a -> Identity b) -> s -> Identity t
- set :: ASetter s t a b -> b -> s -> t
- type Getting r s t a b = (a -> Constant r b) -> s -> Constant r t
- view :: s -> Getting a s t a b -> a
Documentation
data PersonGeneric backend Source #
Person | |
|
type Person = PersonGeneric SqlBackend Source #
data Person1Generic backend Source #
Person1 | |
|
type Person1 = Person1Generic SqlBackend Source #
data PersonMaybeAgeGeneric backend Source #
type PersonMaybeAgeId = Key PersonMaybeAge Source #
data PersonMayGeneric backend Source #
PersonMay | |
|
type PersonMay = PersonMayGeneric SqlBackend Source #
type PersonMayId = Key PersonMay Source #
data PetGeneric backend Source #
Pet | |
|
type Pet = PetGeneric SqlBackend Source #
data MaybeOwnedPetGeneric backend Source #
MaybeOwnedPet | |
|
type MaybeOwnedPetId = Key MaybeOwnedPet Source #
data NeedsPetGeneric backend Source #
NeedsPet | |
|
type NeedsPet = NeedsPetGeneric SqlBackend Source #
type NeedsPetId = Key NeedsPet Source #
data OutdoorPetGeneric backend Source #
OutdoorPet | |
|
type OutdoorPet = OutdoorPetGeneric SqlBackend Source #
type OutdoorPetId = Key OutdoorPet Source #
data UserPTGeneric backend Source #
UserPT | |
|
type UserPT = UserPTGeneric SqlBackend Source #
data EmailPTGeneric backend Source #
EmailPT | |
|
type EmailPT = EmailPTGeneric SqlBackend Source #
data UpsertGeneric backend Source #
Upsert | |
|
type Upsert = UpsertGeneric SqlBackend Source #
data UpsertByGeneric backend Source #
UpsertBy | |
|
type UpsertBy = UpsertByGeneric SqlBackend Source #
type UpsertById = Key UpsertBy Source #
data StrictGeneric backend Source #
type Strict = StrictGeneric SqlBackend Source #
_ignoredSave :: [EntityDef] Source #
type NoPrefix1Id = Key NoPrefix1 Source #
NoPrefix2 | |
|
type NoPrefix2Id = Key NoPrefix2 Source #
data NoPrefixSum Source #
type NoPrefixSumId = Key NoPrefixSum Source #
cleanDB :: (MonadIO m, PersistQuery backend, PersistEntityBackend EmailPT ~ backend) => ReaderT backend m () Source #
catchPersistException :: MonadUnliftIO m => m a -> b -> m b Source #
newtype ReverseFieldOrder a Source #
Reverses the order of the fields of an entity. Used to test
??
placeholders of rawSql
.
Eq (Key (ReverseFieldOrder a)) Source # | |
Eq a => Eq (ReverseFieldOrder a) Source # | |
Ord (Key (ReverseFieldOrder a)) Source # | |
Read (Key (ReverseFieldOrder a)) Source # | |
Show (Key (ReverseFieldOrder a)) Source # | |
Show a => Show (ReverseFieldOrder a) Source # | |
ToJSON (Key (ReverseFieldOrder a)) Source # | |
FromJSON (Key (ReverseFieldOrder a)) Source # | |
PersistFieldSql (Key (ReverseFieldOrder a)) Source # | |
PersistEntity a => PersistEntity (ReverseFieldOrder a) Source # | |
PersistField (Key (ReverseFieldOrder a)) Source # | |
data Unique (ReverseFieldOrder a) Source # | |
data EntityField (ReverseFieldOrder a) Source # | |
data Key (ReverseFieldOrder a) Source # | |
type PersistEntityBackend (ReverseFieldOrder a) Source # | |
_polymorphic :: (MonadIO m, PersistQuery backend, BaseBackend backend ~ PersistEntityBackend Pet) => ReaderT backend m () Source #