Web.Slug

Type-safe slug implementation for Yesod ecosystem.

Documentation

data Slug

Slug. Textual value inside is always guaranteed to have the following qualities:

• it's not empty;
• it consists only of alpha-numeric groups of characters (words) separated by '-' dashes in such a way that entire slug cannot start or end in a dash and also two dashes in a row cannot be found;
• every character with defined notion of case is lower-cased.

Slugs are good for semantic URLs and also can be used as identifier of a sort in some cases.

Instances

Eq Slug

Read Slug

Show Slug

ToJSON Slug

FromJSON Slug

PathPiece Slug

PersistFieldSql Slug

PersistField Slug

mkSlug :: MonadThrow m => Text -> m Slug

Create Slug from Text, all necessary transformations are applied. Argument of this function can be title of an article or something like that.

Note that result is inside MonadThrow, that means you can just get it in Maybe, in more complex contexts it will throw SlugException exception using InvalidInput constructor.

This function also have a useful property:

mkSlug = mkSlug >=> mkSlug . unSlug

unSlug :: Slug -> Text

Get textual representation of Slug.

parseSlug :: MonadThrow m => Text -> m Slug

Convert Text into Slug only when it is already valid slug.

This function can throw SlugException exception using InvalidSlug constructor.

truncateSlug

Arguments

:: MonadThrow m

=> Int

Maximum length of slug, must be greater than 0

-> Slug

Original non-truncated slug

-> m Slug

Truncated slug

Ensure that given Slug is not longer than given maximum number of characters. If truncated slug ends in a dash, remove that dash too. (Dash at the end would violate properties described in documentation for Slug.)

If the first argument is not a positive number, SlugException is thrown using InvalidLength constructor.

data SlugException

This exception is thrown by mkSlug when its input cannot be converted into proper Slug.

Constructors

InvalidInput Text

Slug cannot be generated for given text

InvalidSlug Text

Input is not a valid slug, see parseSlug

InvalidLength Int

Requested slug length is not a positive number

Instances

Show SlugException

Exception SlugException