slug 0.1.2 → 0.1.3

raw patch · 4 files changed

+12/−7 lines, 4 filesdep ~slug

Dependency ranges changed: slug

Files

• CHANGELOG.md +4/−0
• Web/Slug.hs +6/−3
• slug.cabal +2/−3
• tests/Main.hs +0/−1

@@ -1,3 +1,7 @@+## Slug 0.1.3++* Export plain function `unSlug` instead of record selector `unSlug`.+ ## Slug 0.1.2  * Improved error messages in `parseJSON`.

@@ -63,9 +63,7 @@ -- Slugs are good for semantic URLs and also can be used as identifier of a -- sort in some cases. -newtype Slug = Slug-  { unSlug :: Text     -- ^ Get textual representation of 'Slug'.-  } deriving (Eq, Typeable)+newtype Slug = Slug Text deriving (Eq, Typeable)  -- | Create 'Slug' from 'Text', all necessary transformations are -- applied. Argument of this function can be title of an article or@@ -85,6 +83,11 @@   in if null ws      then throwM (InvalidInput text)      else return . Slug . T.intercalate "-" $ ws++-- | Get textual representation if 'Slug'.++unSlug :: Slug -> Text+unSlug (Slug x) = x  -- | Convert 'Text' to possibly empty collection of words. Every word is -- guaranteed to be non-empty alpha-numeric lowercased sequence of

@@ -1,4 +1,3 @@--- -*- Mode: Haskell-Cabal; -*- -- -- Cabal configuration for ‘slug’. --@@ -32,7 +31,7 @@ -- POSSIBILITY OF SUCH DAMAGE.  name:                 slug-version:              0.1.2+version:              0.1.3 cabal-version:        >= 1.10 license:              BSD3 license-file:         LICENSE.md@@ -80,7 +79,7 @@                     , base                       >= 4.6 && < 5                     , exceptions                 >= 0.6                     , path-pieces                >= 0.1.5-                    , slug                       >= 0.1.2+                    , slug                       >= 0.1.3                     , test-framework             >= 0.6 && < 1                     , test-framework-quickcheck2 >= 0.3 && < 0.4                     , text                       >= 1.0

@@ -1,4 +1,3 @@--- -*- Mode: Haskell; -*- -- -- Slug tests. --