diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -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`.
diff --git a/Web/Slug.hs b/Web/Slug.hs
--- a/Web/Slug.hs
+++ b/Web/Slug.hs
@@ -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
diff --git a/slug.cabal b/slug.cabal
--- a/slug.cabal
+++ b/slug.cabal
@@ -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
diff --git a/tests/Main.hs b/tests/Main.hs
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -1,4 +1,3 @@
--- -*- Mode: Haskell; -*-
 --
 -- Slug tests.
 --