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

Eq AuthorId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

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

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

Show AuthorId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> AuthorId -> ShowS

show :: AuthorId -> String

showList :: [AuthorId] -> ShowS

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

Eq Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

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

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

Show Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> Author -> ShowS

show :: Author -> String

showList :: [Author] -> ShowS

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

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]

Entity Author

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

tableName :: Text

primaryKey :: Field

fields :: Vector Field

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.1.0-inplace" '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

Eq BlogPostId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

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

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

Show BlogPostId

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> BlogPostId -> ShowS

show :: BlogPostId -> String

showList :: [BlogPostId] -> ShowS

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

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 :: Vector UUID

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

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

Instances

Eq BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

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

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

Show BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

showsPrec :: Int -> BlogPost -> ShowS

show :: BlogPost -> String

showList :: [BlogPost] -> ShowS

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

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]

Entity BlogPost

Defined in Database.PostgreSQL.Entity.Internal.BlogPost

Methods

tableName :: Text

primaryKey :: Field

fields :: Vector Field

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.1.0-inplace" '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 (Vector UUID)))) :*: (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

insertAuthor :: Author -> DBT IO ()

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