Database.Persist.Documentation.Internal

This module defines the helpers and internal types that are used in the documentation DSL.

Documentation

alignFields :: forall rec. RC rec => [FieldDef] -> StrMap (SomeField rec) Text -> [FieldDef]

Given a list of FieldDefs, this associates each FieldDef with the additional documentation comment provided in the StrMap (SomeField rec) Text for that entity, if any is present.

Precondition: The [FieldDef] comes from the PersistEntity rec that this is called for. Doing eg:

alignFields
  (entityFields (entityDef (Proxy :: Proxy User)))
  (strMap :: StrMap (SomeField Order) Text)

will be extremely weird.

Since: 0.1.0.0

asHaskellNames :: forall rec. RC rec => StrMap (SomeField rec) Text -> Map Text Text

Formats the SomeField rec in the keys of the Map to be formatted in the same way as the HaskellName present in a FieldDef.

Since: 0.1.0.0

newtype EntityDoc' a

A type for defining documentation for a schema.

Since: 0.1.0.0

Constructors

ED (Writer SchemaDocs a)

Instances

Monad EntityDoc'

Defined in Database.Persist.Documentation.Internal

Methods

(>>=) :: EntityDoc' a -> (a -> EntityDoc' b) -> EntityDoc' b

(>>) :: EntityDoc' a -> EntityDoc' b -> EntityDoc' b

return :: a -> EntityDoc' a

fail :: String -> EntityDoc' a

Functor EntityDoc'

Defined in Database.Persist.Documentation.Internal

Methods

fmap :: (a -> b) -> EntityDoc' a -> EntityDoc' b

(<$) :: a -> EntityDoc' b -> EntityDoc' a

Applicative EntityDoc'

Defined in Database.Persist.Documentation.Internal

Methods

pure :: a -> EntityDoc' a

(<*>) :: EntityDoc' (a -> b) -> EntityDoc' a -> EntityDoc' b

liftA2 :: (a -> b -> c) -> EntityDoc' a -> EntityDoc' b -> EntityDoc' c

(*>) :: EntityDoc' a -> EntityDoc' b -> EntityDoc' b

(<*) :: EntityDoc' a -> EntityDoc' b -> EntityDoc' a

MonadWriter SchemaDocs EntityDoc'

Defined in Database.Persist.Documentation.Internal

Methods

writer :: (a, SchemaDocs) -> EntityDoc' a

tell :: SchemaDocs -> EntityDoc' ()

listen :: EntityDoc' a -> EntityDoc' (a, SchemaDocs)

pass :: EntityDoc' (a, SchemaDocs -> SchemaDocs) -> EntityDoc' a

type SchemaDocs = SemiMap TypeRep SomeDocs

The SchemaDocs maps a TypeRep of the Entity rec that is documented to the SomeDocs for that entity.

Since: 0.1.0.0

data SomeDocs where

A wrapper around EntityDocs that allows them to be stored in a list together. Contains the RC constraint alias, which will ensure that all necessary constraints for document rendering are packaged in.

Constructors

SomeDocs :: RC rec => EntityDocs rec -> SomeDocs

Instances

Semigroup SomeDocs

Defined in Database.Persist.Documentation.Internal

Methods

(<>) :: SomeDocs -> SomeDocs -> SomeDocs

sconcat :: NonEmpty SomeDocs -> SomeDocs

stimes :: Integral b => b -> SomeDocs -> SomeDocs

MonadWriter SchemaDocs EntityDoc'

Defined in Database.Persist.Documentation.Internal

Methods

writer :: (a, SchemaDocs) -> EntityDoc' a

tell :: SchemaDocs -> EntityDoc' ()

listen :: EntityDoc' a -> EntityDoc' (a, SchemaDocs)

pass :: EntityDoc' (a, SchemaDocs -> SchemaDocs) -> EntityDoc' a

type RC rec = Typeable rec

Expand this constraint synonym to pack necessary constraints in with the EntityDocs type. Used in a few places to ensure that constraints are easy to modify in one place.

Since: 0.1.0.0

data EntityDocs rec

EntityDocs contain the documentation comment for the Entity rec that is being documented, as well as a map of documentation for the fields of that entity.

Since: 0.1.0.0

Constructors

EntityDocs

Fields

• entityDocumentation :: Text
• fieldDocumentation :: StrMap (SomeField rec) Text

Instances

Semigroup (EntityDocs rec)

Defined in Database.Persist.Documentation.Internal

Methods

(<>) :: EntityDocs rec -> EntityDocs rec -> EntityDocs rec

sconcat :: NonEmpty (EntityDocs rec) -> EntityDocs rec

stimes :: Integral b => b -> EntityDocs rec -> EntityDocs rec

Monoid (EntityDocs rec)

Defined in Database.Persist.Documentation.Internal

Methods

mempty :: EntityDocs rec

mappend :: EntityDocs rec -> EntityDocs rec -> EntityDocs rec

mconcat :: [EntityDocs rec] -> EntityDocs rec

MonadWriter (EntityDocs rec) (FieldDoc' rec)

Defined in Database.Persist.Documentation.Internal

Methods

writer :: (a, EntityDocs rec) -> FieldDoc' rec a

tell :: EntityDocs rec -> FieldDoc' rec ()

listen :: FieldDoc' rec a -> FieldDoc' rec (a, EntityDocs rec)

pass :: FieldDoc' rec (a, EntityDocs rec -> EntityDocs rec) -> FieldDoc' rec a

type EntityDoc = EntityDoc' ()

An expression of EntityDoc is used to document the persistent schema. To construct an EntityDoc, you'll use the Entity constructor and the '(--^)' operator. Everything to the right of the '(--^)' operator is a 'FieldDoc rec' for the given entity.

This type is a monad, and you can use do notation to sequence the documentation.

doc :: EntityDoc
doc =  do
  User --^ "Documentation for a User"
  Dog --^ "Documentation for a Dog"

Since: 0.1.0.0

type FieldDoc s = FieldDoc' s ()

A FieldDoc expression provides documentation for the given Entity. This type is a Monad and you will want to use do notation to create this.

There are two ways to create FieldDoc lines:

• String literals. These are collected and appended as documentation for the entity itself.
• The '(#)' operator, which accepts an EntityField and the text documentation for that entity.

Since: 0.1.0.0

data SomeField rec where

Wrap the result type of a EntityField value so it can be stored in homogenous containers.

Since: 0.1.0.0

Constructors

SomeField :: FC rec typ => EntityField rec typ -> SomeField rec

Instances

(forall typ. Show (EntityField rec typ)) => Show (SomeField rec)

We need this instance so we can store SomeField values in the StrMap. The quantified constraint ensures that we can show the underlying field. The deriveShowFields function defined later ensures that this is defined for records in the schema.

Defined in Database.Persist.Documentation.Internal

Methods

showsPrec :: Int -> SomeField rec -> ShowS

show :: SomeField rec -> String

showList :: [SomeField rec] -> ShowS

type FC rec typ = forall x. Show (EntityField rec x)

Expand this constraint synonym to pack necessary constraints for packing EntityField values into SomeFields.

newtype FieldDoc' rec a

A monad for writing documentation on an entity's fields. Collects the documentation into a Writer.

Since: 0.1.0.0

Constructors

FD (Writer (EntityDocs rec) a)

Instances

Monad (FieldDoc' rec)

Defined in Database.Persist.Documentation.Internal

Methods

(>>=) :: FieldDoc' rec a -> (a -> FieldDoc' rec b) -> FieldDoc' rec b

(>>) :: FieldDoc' rec a -> FieldDoc' rec b -> FieldDoc' rec b

return :: a -> FieldDoc' rec a

fail :: String -> FieldDoc' rec a

Functor (FieldDoc' rec)

Defined in Database.Persist.Documentation.Internal

Methods

fmap :: (a -> b) -> FieldDoc' rec a -> FieldDoc' rec b

(<$) :: a -> FieldDoc' rec b -> FieldDoc' rec a

Applicative (FieldDoc' rec)

Defined in Database.Persist.Documentation.Internal

Methods

pure :: a -> FieldDoc' rec a

(<*>) :: FieldDoc' rec (a -> b) -> FieldDoc' rec a -> FieldDoc' rec b

liftA2 :: (a -> b -> c) -> FieldDoc' rec a -> FieldDoc' rec b -> FieldDoc' rec c

(*>) :: FieldDoc' rec a -> FieldDoc' rec b -> FieldDoc' rec b

(<*) :: FieldDoc' rec a -> FieldDoc' rec b -> FieldDoc' rec a

MonadWriter (EntityDocs rec) (FieldDoc' rec)

Defined in Database.Persist.Documentation.Internal

Methods

writer :: (a, EntityDocs rec) -> FieldDoc' rec a

tell :: EntityDocs rec -> FieldDoc' rec ()

listen :: FieldDoc' rec a -> FieldDoc' rec (a, EntityDocs rec)

pass :: FieldDoc' rec (a, EntityDocs rec -> EntityDocs rec) -> FieldDoc' rec a

a ~ () => IsString (FieldDoc' s a)

Defined in Database.Persist.Documentation.Internal

Methods

fromString :: String -> FieldDoc' s a

single :: FC rec typ => EntityField rec typ -> Text -> StrMap (SomeField rec) Text

type family KnowResult a where ...

Equations

KnowResult (i -> o) = KnowResult o

KnowResult a = a

lowercaseFirstChar :: Text -> Text

(--^)

Arguments

:: (KnowResult a ~ r, Typeable r, RC r)

=> a

A constructor for the Entity r you want to document.

-> FieldDoc r

A block that contains documentation for the Entity r.

-> EntityDoc

Define documentation for an entity. The left-hand side takes the Entity constructor, and the right hand side takes a FieldDoc expression that documents the entity and it's fields.

Example

x :: EntityDoc
x = do
  User --^ do
    "This comment is for the entity User."
    UserName # "This comment is for a field.""

Since: 0.1.0.0

(#) :: FC rec typ => EntityField rec typ -> Text -> FieldDoc rec

Write documentation for the given EntityField.

Example

x :: EntityDoc
x = do
  User --^ do
    "This comment is for the entity User."
    UserName # "This comment is for a field.""

Since: 0.1.0.0