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

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 :: Type

data Key Tweet :: Type

data EntityField Tweet a :: Type

data Unique Tweet :: Type

Methods

keyToValues :: Key Tweet -> [PersistValue]

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

persistIdField :: EntityField Tweet (Key Tweet)

entityDef :: Monad m => m Tweet -> EntityDef

persistFieldDef :: EntityField Tweet typ -> FieldDef

toPersistFields :: Tweet -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text Tweet

persistUniqueKeys :: Tweet -> [Unique Tweet]

persistUniqueToFieldNames :: Unique Tweet -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique Tweet -> [PersistValue]

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

PersistField Tweet

Defined in CustomPrimaryKeyReferenceTest

Methods

toPersistValue :: Tweet -> PersistValue

fromPersistValue :: PersistValue -> Either Text Tweet

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 (Unique Tweet)

Defined in CustomPrimaryKeyReferenceTest

Methods

showsPrec :: Int -> Unique Tweet -> ShowS

show :: Unique Tweet -> String

showList :: [Unique Tweet] -> ShowS

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 = UniqueTweetId Int

data EntityField Tweet typ

Defined in CustomPrimaryKeyReferenceTest

data EntityField Tweet typ where

• TweetId :: forall typ. typ ~ TweetId => EntityField Tweet typ
• TweetTweetId :: forall typ. typ ~ Int => EntityField Tweet typ
• TweetStatusText :: forall typ. typ ~ Text => EntityField Tweet typ

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 :: !(Key Tweet)
• 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 :: Type

data Key TweetUrl :: Type

data EntityField TweetUrl a :: Type

data Unique TweetUrl :: Type

Methods

keyToValues :: Key TweetUrl -> [PersistValue]

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

persistIdField :: EntityField TweetUrl (Key TweetUrl)

entityDef :: Monad m => m TweetUrl -> EntityDef

persistFieldDef :: EntityField TweetUrl typ -> FieldDef

toPersistFields :: TweetUrl -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text TweetUrl

persistUniqueKeys :: TweetUrl -> [Unique TweetUrl]

persistUniqueToFieldNames :: Unique TweetUrl -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique TweetUrl -> [PersistValue]

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

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

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 (Unique TweetUrl)

Defined in CustomPrimaryKeyReferenceTest

Methods

showsPrec :: Int -> Unique TweetUrl -> ShowS

show :: Unique TweetUrl -> String

showList :: [Unique TweetUrl] -> ShowS

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 (Key Tweet) Text

data EntityField TweetUrl typ

Defined in CustomPrimaryKeyReferenceTest

data EntityField TweetUrl typ where

• TweetUrlId :: forall typ. typ ~ Key TweetUrl => EntityField TweetUrl typ
• TweetUrlTweetId :: forall typ. typ ~ Key Tweet => EntityField TweetUrl typ
• TweetUrlTweetUrl :: forall typ. typ ~ Text => EntityField TweetUrl typ
• TweetUrlFinalUrl :: forall typ. typ ~ Maybe Text => EntityField TweetUrl typ

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

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

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