11 lines
210 B
Haskell
11 lines
210 B
Haskell
-- | A wrapper around the 'Slug' interface.
|
|
|
|
module Data.Tag where
|
|
|
|
import Control.Monad.Catch
|
|
import Data.Slug
|
|
import Data.Text
|
|
|
|
-- | Make a tag.
|
|
mkTag :: MonadThrow m => Text -> m Slug
|
|
mkTag = mkSlugLen 1 20
|