Database.PostgreSQL.Entity.Internal.BlogPost

Adapted from Clément Delafargue's Yet Another Unsafe DB Layer article.

The models described in this module are used throughout the library's tests and docspecs.

Documentation

newtype AuthorId

Wrapper around the UUID type

Constructors

AuthorId

Fields

• getAuthorId :: UUID

Instances

Show AuthorId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> AuthorId -> ShowS

show :: AuthorId -> String

showList :: [AuthorId] -> ShowS

Eq AuthorId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

(==) :: AuthorId -> AuthorId -> Bool

(/=) :: AuthorId -> AuthorId -> Bool

Ord AuthorId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

compare :: AuthorId -> AuthorId -> Ordering

(<) :: AuthorId -> AuthorId -> Bool

(<=) :: AuthorId -> AuthorId -> Bool

(>) :: AuthorId -> AuthorId -> Bool

(>=) :: AuthorId -> AuthorId -> Bool

max :: AuthorId -> AuthorId -> AuthorId

min :: AuthorId -> AuthorId -> AuthorId

FromField AuthorId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

fromField :: FieldParser AuthorId

ToField AuthorId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

toField :: AuthorId -> Action

data Author

Author data-type

Constructors

Author

Fields

• authorId :: AuthorId
• name :: Text
• createdAt :: UTCTime

Instances

Generic Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Associated Types

type Rep Author :: Type -> Type

Methods

from :: Author -> Rep Author x

to :: Rep Author x -> Author

Show Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> Author -> ShowS

show :: Author -> String

showList :: [Author] -> ShowS

Eq Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

(==) :: Author -> Author -> Bool

(/=) :: Author -> Author -> Bool

Ord Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

compare :: Author -> Author -> Ordering

(<) :: Author -> Author -> Bool

(<=) :: Author -> Author -> Bool

(>) :: Author -> Author -> Bool

(>=) :: Author -> Author -> Bool

max :: Author -> Author -> Author

min :: Author -> Author -> Author

Entity Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

tableName :: Text

schema :: Maybe Text

primaryKey :: Field

fields :: Vector Field

FromRow Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

fromRow :: RowParser Author

ToRow Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

toRow :: Author -> [Action]

HasField x Author a => IsLabel x (Author -> a)

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

fromLabel :: Author -> a

type Rep Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

type Rep Author = D1 ('MetaData "Author" "Database.PostgreSQL.Entity.Internal.BlogPost" "pg-entity-0.0.3.0-5qb7c5wSiOsIWpDYNHFwq8" 'False) (C1 ('MetaCons "Author" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 AuthorId) :*: (S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: S1 ('MetaSel ('Just "createdAt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UTCTime))))

newtype BlogPostId

Wrapper around the UUID type

Constructors

BlogPostId

Fields

• getBlogPostId :: UUID

Instances

Show BlogPostId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> BlogPostId -> ShowS

show :: BlogPostId -> String

showList :: [BlogPostId] -> ShowS

Eq BlogPostId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

(==) :: BlogPostId -> BlogPostId -> Bool

(/=) :: BlogPostId -> BlogPostId -> Bool

Ord BlogPostId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

compare :: BlogPostId -> BlogPostId -> Ordering

(<) :: BlogPostId -> BlogPostId -> Bool

(<=) :: BlogPostId -> BlogPostId -> Bool

(>) :: BlogPostId -> BlogPostId -> Bool

(>=) :: BlogPostId -> BlogPostId -> Bool

max :: BlogPostId -> BlogPostId -> BlogPostId

min :: BlogPostId -> BlogPostId -> BlogPostId

FromField BlogPostId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

fromField :: FieldParser BlogPostId

ToField BlogPostId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

toField :: BlogPostId -> Action

newtype UUIDList

Constructors

UUIDList

Fields

• getUUIDList :: Vector UUID

Instances

Generic UUIDList

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Associated Types

type Rep UUIDList :: Type -> Type

Methods

from :: UUIDList -> Rep UUIDList x

to :: Rep UUIDList x -> UUIDList

Show UUIDList

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> UUIDList -> ShowS

show :: UUIDList -> String

showList :: [UUIDList] -> ShowS

Eq UUIDList

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

(==) :: UUIDList -> UUIDList -> Bool

(/=) :: UUIDList -> UUIDList -> Bool

Ord UUIDList

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

compare :: UUIDList -> UUIDList -> Ordering

(<) :: UUIDList -> UUIDList -> Bool

(<=) :: UUIDList -> UUIDList -> Bool

(>) :: UUIDList -> UUIDList -> Bool

(>=) :: UUIDList -> UUIDList -> Bool

max :: UUIDList -> UUIDList -> UUIDList

min :: UUIDList -> UUIDList -> UUIDList

FromField UUIDList

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

fromField :: FieldParser UUIDList

ToField UUIDList

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

toField :: UUIDList -> Action

type Rep UUIDList

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

type Rep UUIDList = D1 ('MetaData "UUIDList" "Database.PostgreSQL.Entity.Internal.BlogPost" "pg-entity-0.0.3.0-5qb7c5wSiOsIWpDYNHFwq8" 'True) (C1 ('MetaCons "UUIDList" 'PrefixI 'True) (S1 ('MetaSel ('Just "getUUIDList") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector UUID))))

data BlogPost

The BlogPost data-type. Look at its Entity instance declaration for how to handle a "uuid[]" PostgreSQL type.

Constructors

BlogPost

Fields

• blogPostId :: BlogPostId

  Primary key

• authorId :: AuthorId

  Foreign keys, for which we need an explicit type annotation

• uuidList :: UUIDList

  A type that will need an explicit type annotation in the schema

• title :: Text
• content :: Text
• createdAt :: UTCTime

Instances

Generic BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Associated Types

type Rep BlogPost :: Type -> Type

Methods

from :: BlogPost -> Rep BlogPost x

to :: Rep BlogPost x -> BlogPost

Show BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> BlogPost -> ShowS

show :: BlogPost -> String

showList :: [BlogPost] -> ShowS

Eq BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

(==) :: BlogPost -> BlogPost -> Bool

(/=) :: BlogPost -> BlogPost -> Bool

Ord BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

compare :: BlogPost -> BlogPost -> Ordering

(<) :: BlogPost -> BlogPost -> Bool

(<=) :: BlogPost -> BlogPost -> Bool

(>) :: BlogPost -> BlogPost -> Bool

(>=) :: BlogPost -> BlogPost -> Bool

max :: BlogPost -> BlogPost -> BlogPost

min :: BlogPost -> BlogPost -> BlogPost

Entity BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

tableName :: Text

schema :: Maybe Text

primaryKey :: Field

fields :: Vector Field

FromRow BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

fromRow :: RowParser BlogPost

ToRow BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

toRow :: BlogPost -> [Action]

HasField x BlogPost a => IsLabel x (BlogPost -> a)

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

fromLabel :: BlogPost -> a

type Rep BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

type Rep BlogPost = D1 ('MetaData "BlogPost" "Database.PostgreSQL.Entity.Internal.BlogPost" "pg-entity-0.0.3.0-5qb7c5wSiOsIWpDYNHFwq8" 'False) (C1 ('MetaCons "BlogPost" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blogPostId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 BlogPostId) :*: (S1 ('MetaSel ('Just "authorId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 AuthorId) :*: S1 ('MetaSel ('Just "uuidList") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UUIDList))) :*: (S1 ('MetaSel ('Just "title") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: (S1 ('MetaSel ('Just "content") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: S1 ('MetaSel ('Just "createdAt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UTCTime)))))

insertBlogPost :: BlogPost -> DBT IO ()

A specialisation of the insert function. insertBlogPost = insert @BlogPost

upsertBlogPost :: BlogPost -> Vector Field -> DBT IO ()

bulkInsertBlogPosts :: [BlogPost] -> DBT IO ()

A function to insert many blogposts at once.

insertAuthor :: Author -> DBT IO ()

A specialisation of the 'Database.PostgreSQL.Entity.insert function. insertAuthor = insert @Author

bulkInsertAuthors :: [Author] -> DBT IO ()

A function to insert many authors at once.

data Tags

Constructors

Tags

Fields

• category :: Text
• labels :: [Text]

Instances

Entity Tags

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

tableName :: Text

schema :: Maybe Text

primaryKey :: Field

fields :: Vector Field