CustomPrimaryKeyReferenceTest

Documentation

data Tweet

Constructors

Tweet

Fields

• tweetTweetId :: !Int
• tweetStatusText :: !Text

Instances

Show Tweet

Defined in CustomPrimaryKeyReferenceTest

Methods

showsPrec :: Int -> Tweet -> ShowS

show :: Tweet -> String

showList :: [Tweet] -> ShowS

PersistFieldSql Tweet

Defined in CustomPrimaryKeyReferenceTest

Methods

sqlType :: Proxy Tweet -> SqlType

(TypeError (MultipleUniqueKeysError Tweet) :: Constraint) => OnlyOneUniqueKey Tweet

Defined in CustomPrimaryKeyReferenceTest

Methods

onlyUniqueP :: Tweet -> Unique Tweet

AtLeastOneUniqueKey Tweet

Defined in CustomPrimaryKeyReferenceTest

Methods

requireUniquesP :: Tweet -> NonEmpty (Unique Tweet)

PersistEntity Tweet

Defined in CustomPrimaryKeyReferenceTest

Associated Types

type PersistEntityBackend Tweet

data Key Tweet

data EntityField Tweet :: Type -> Type

data Unique Tweet

Methods

keyToValues :: Key Tweet -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key Tweet)

persistIdField :: EntityField Tweet (Key Tweet)

entityDef :: proxy Tweet -> EntityDef

persistFieldDef :: EntityField Tweet typ -> FieldDef

toPersistFields :: Tweet -> [PersistValue]

fromPersistValues :: [PersistValue] -> Either Text Tweet

tabulateEntityA :: Applicative f => (forall a. EntityField Tweet a -> f a) -> f (Entity Tweet)

persistUniqueKeys :: Tweet -> [Unique Tweet]

persistUniqueToFieldNames :: Unique Tweet -> NonEmpty (FieldNameHS, FieldNameDB)

persistUniqueToValues :: Unique Tweet -> [PersistValue]

fieldLens :: EntityField Tweet field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity Tweet -> f (Entity Tweet)

keyFromRecordM :: Maybe (Tweet -> Key Tweet)

SafeToInsert Tweet

Defined in CustomPrimaryKeyReferenceTest

PersistField Tweet

Defined in CustomPrimaryKeyReferenceTest

Methods

toPersistValue :: Tweet -> PersistValue

fromPersistValue :: PersistValue -> Either Text Tweet

SymbolToField "statusText" Tweet Text

Defined in CustomPrimaryKeyReferenceTest

Methods

symbolToField :: EntityField Tweet Text

SymbolToField "tweetId" TweetUrl TweetId

Defined in CustomPrimaryKeyReferenceTest

Methods

symbolToField :: EntityField TweetUrl TweetId

SymbolToField "tweetId" Tweet Int

Defined in CustomPrimaryKeyReferenceTest

Methods

symbolToField :: EntityField Tweet Int

Eq (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

(==) :: Key Tweet -> Key Tweet -> Bool

(/=) :: Key Tweet -> Key Tweet -> Bool

Ord (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

compare :: Key Tweet -> Key Tweet -> Ordering

(<) :: Key Tweet -> Key Tweet -> Bool

(<=) :: Key Tweet -> Key Tweet -> Bool

(>) :: Key Tweet -> Key Tweet -> Bool

(>=) :: Key Tweet -> Key Tweet -> Bool

max :: Key Tweet -> Key Tweet -> Key Tweet

min :: Key Tweet -> Key Tweet -> Key Tweet

Read (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

readsPrec :: Int -> ReadS (Key Tweet)

readList :: ReadS [Key Tweet]

readPrec :: ReadPrec (Key Tweet)

readListPrec :: ReadPrec [Key Tweet]

Show (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

showsPrec :: Int -> Key Tweet -> ShowS

show :: Key Tweet -> String

showList :: [Key Tweet] -> ShowS

ToJSON (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

toJSON :: Key Tweet -> Value

toEncoding :: Key Tweet -> Encoding

toJSONList :: [Key Tweet] -> Value

toEncodingList :: [Key Tweet] -> Encoding

FromJSON (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

parseJSON :: Value -> Parser (Key Tweet)

parseJSONList :: Value -> Parser [Key Tweet]

ToHttpApiData (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

toUrlPiece :: Key Tweet -> Text

toEncodedUrlPiece :: Key Tweet -> Builder

toHeader :: Key Tweet -> ByteString

toQueryParam :: Key Tweet -> Text

FromHttpApiData (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

parseUrlPiece :: Text -> Either Text (Key Tweet)

parseHeader :: ByteString -> Either Text (Key Tweet)

parseQueryParam :: Text -> Either Text (Key Tweet)

PathPiece (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

fromPathPiece :: Text -> Maybe (Key Tweet)

toPathPiece :: Key Tweet -> Text

PersistFieldSql (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

sqlType :: Proxy (Key Tweet) -> SqlType

PersistField (Key Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

toPersistValue :: Key Tweet -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key Tweet)

data Unique Tweet

Defined in CustomPrimaryKeyReferenceTest

data Unique Tweet

• = TweetPrimaryKey Int
• | UniqueTweetId Int

data EntityField Tweet typ

Defined in CustomPrimaryKeyReferenceTest

data EntityField Tweet typ

• = typ ~ TweetId => TweetId
• | typ ~ Int => TweetTweetId
• | typ ~ Text => TweetStatusText

newtype Key Tweet

Defined in CustomPrimaryKeyReferenceTest

newtype Key Tweet = TweetKey {

• unTweetKey :: Int

}

type PersistEntityBackend Tweet

Defined in CustomPrimaryKeyReferenceTest

type PersistEntityBackend Tweet = SqlBackend

type TweetId = Key Tweet

data TweetUrl

Constructors

TweetUrl

Fields

• tweetUrlTweetId :: !TweetId
• tweetUrlTweetUrl :: !Text
• tweetUrlFinalUrl :: !(Maybe Text)

Instances

Show TweetUrl

Defined in CustomPrimaryKeyReferenceTest

Methods

showsPrec :: Int -> TweetUrl -> ShowS

show :: TweetUrl -> String

showList :: [TweetUrl] -> ShowS

PersistFieldSql TweetUrl

Defined in CustomPrimaryKeyReferenceTest

Methods

sqlType :: Proxy TweetUrl -> SqlType

OnlyOneUniqueKey TweetUrl

Defined in CustomPrimaryKeyReferenceTest

Methods

onlyUniqueP :: TweetUrl -> Unique TweetUrl

AtLeastOneUniqueKey TweetUrl

Defined in CustomPrimaryKeyReferenceTest

Methods

requireUniquesP :: TweetUrl -> NonEmpty (Unique TweetUrl)

PersistEntity TweetUrl

Defined in CustomPrimaryKeyReferenceTest

Associated Types

type PersistEntityBackend TweetUrl

data Key TweetUrl

data EntityField TweetUrl :: Type -> Type

data Unique TweetUrl

Methods

keyToValues :: Key TweetUrl -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key TweetUrl)

persistIdField :: EntityField TweetUrl (Key TweetUrl)

entityDef :: proxy TweetUrl -> EntityDef

persistFieldDef :: EntityField TweetUrl typ -> FieldDef

toPersistFields :: TweetUrl -> [PersistValue]

fromPersistValues :: [PersistValue] -> Either Text TweetUrl

tabulateEntityA :: Applicative f => (forall a. EntityField TweetUrl a -> f a) -> f (Entity TweetUrl)

persistUniqueKeys :: TweetUrl -> [Unique TweetUrl]

persistUniqueToFieldNames :: Unique TweetUrl -> NonEmpty (FieldNameHS, FieldNameDB)

persistUniqueToValues :: Unique TweetUrl -> [PersistValue]

fieldLens :: EntityField TweetUrl field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity TweetUrl -> f (Entity TweetUrl)

keyFromRecordM :: Maybe (TweetUrl -> Key TweetUrl)

SafeToInsert TweetUrl

Defined in CustomPrimaryKeyReferenceTest

PersistField TweetUrl

Defined in CustomPrimaryKeyReferenceTest

Methods

toPersistValue :: TweetUrl -> PersistValue

fromPersistValue :: PersistValue -> Either Text TweetUrl

ToBackendKey SqlBackend TweetUrl

Defined in CustomPrimaryKeyReferenceTest

Methods

toBackendKey :: Key TweetUrl -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key TweetUrl

SymbolToField "tweetId" TweetUrl TweetId

Defined in CustomPrimaryKeyReferenceTest

Methods

symbolToField :: EntityField TweetUrl TweetId

SymbolToField "tweetUrl" TweetUrl Text

Defined in CustomPrimaryKeyReferenceTest

Methods

symbolToField :: EntityField TweetUrl Text

SymbolToField "finalUrl" TweetUrl (Maybe Text)

Defined in CustomPrimaryKeyReferenceTest

Methods

symbolToField :: EntityField TweetUrl (Maybe Text)

SymbolToField "id" TweetUrl (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

symbolToField :: EntityField TweetUrl (Key TweetUrl)

Eq (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

(==) :: Key TweetUrl -> Key TweetUrl -> Bool

(/=) :: Key TweetUrl -> Key TweetUrl -> Bool

Ord (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

compare :: Key TweetUrl -> Key TweetUrl -> Ordering

(<) :: Key TweetUrl -> Key TweetUrl -> Bool

(<=) :: Key TweetUrl -> Key TweetUrl -> Bool

(>) :: Key TweetUrl -> Key TweetUrl -> Bool

(>=) :: Key TweetUrl -> Key TweetUrl -> Bool

max :: Key TweetUrl -> Key TweetUrl -> Key TweetUrl

min :: Key TweetUrl -> Key TweetUrl -> Key TweetUrl

Read (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

readsPrec :: Int -> ReadS (Key TweetUrl)

readList :: ReadS [Key TweetUrl]

readPrec :: ReadPrec (Key TweetUrl)

readListPrec :: ReadPrec [Key TweetUrl]

Show (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

showsPrec :: Int -> Key TweetUrl -> ShowS

show :: Key TweetUrl -> String

showList :: [Key TweetUrl] -> ShowS

ToJSON (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

toJSON :: Key TweetUrl -> Value

toEncoding :: Key TweetUrl -> Encoding

toJSONList :: [Key TweetUrl] -> Value

toEncodingList :: [Key TweetUrl] -> Encoding

FromJSON (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

parseJSON :: Value -> Parser (Key TweetUrl)

parseJSONList :: Value -> Parser [Key TweetUrl]

ToHttpApiData (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

toUrlPiece :: Key TweetUrl -> Text

toEncodedUrlPiece :: Key TweetUrl -> Builder

toHeader :: Key TweetUrl -> ByteString

toQueryParam :: Key TweetUrl -> Text

FromHttpApiData (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

parseUrlPiece :: Text -> Either Text (Key TweetUrl)

parseHeader :: ByteString -> Either Text (Key TweetUrl)

parseQueryParam :: Text -> Either Text (Key TweetUrl)

PathPiece (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

fromPathPiece :: Text -> Maybe (Key TweetUrl)

toPathPiece :: Key TweetUrl -> Text

PersistFieldSql (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

sqlType :: Proxy (Key TweetUrl) -> SqlType

PersistField (Key TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

toPersistValue :: Key TweetUrl -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key TweetUrl)

data Unique TweetUrl

Defined in CustomPrimaryKeyReferenceTest

data Unique TweetUrl = UniqueTweetIdTweetUrl TweetId Text

data EntityField TweetUrl typ

Defined in CustomPrimaryKeyReferenceTest

data EntityField TweetUrl typ

• = typ ~ TweetUrlId => TweetUrlId
• | typ ~ TweetId => TweetUrlTweetId
• | typ ~ Text => TweetUrlTweetUrl
• | typ ~ Maybe Text => TweetUrlFinalUrl

newtype Key TweetUrl

Defined in CustomPrimaryKeyReferenceTest

newtype Key TweetUrl = TweetUrlKey {

• unTweetUrlKey :: BackendKey SqlBackend

}

type PersistEntityBackend TweetUrl

Defined in CustomPrimaryKeyReferenceTest

type PersistEntityBackend TweetUrl = SqlBackend

type TweetUrlId = Key TweetUrl

migration :: Migration

entityDefListFormigration :: [EntityDef]

cleanDB :: (MonadIO m, PersistQuery backend, PersistEntityBackend Tweet ~ backend) => ReaderT backend m ()

specsWith :: (MonadFail m, MonadIO m) => RunDb SqlBackend m -> Spec