Some cosmetics whims and tweaks

[skip ci]

README.md

@@ -8,15 +8,15 @@
 [![Coverage Status](https://coveralls.io/repos/mrkkrp/slug/badge.svg?branch=master&service=github)](https://coveralls.io/github/mrkkrp/slug?branch=master)
 
 This is a [slug](https://en.wikipedia.org/wiki/Semantic_URL#Slug)
-implementation that plays nicely with [Yesod](http://www.yesodweb.com/)
+implementation that plays nicely with the [Yesod](http://www.yesodweb.com/)
 ecosystem. Although it's fairly easy to write this thing, slugs are useful
 and general enough to be coded once and be used again and again. So this
 little package eliminates some boilerplate you might find yourself writing.
 
 ## Quick start
 
 The package provides the data type `Slug` that is an instance of various
-type classes, so it can be used with Persistent or as part of a route. It
+type classes, so it can be used with Persistent or as a part of a route. It
 also works with the `aeson` package.
 
 The slugs are completely type-safe. When you have a `Slug`, you can be sure

Web/Slug.hs

@@ -23,7 +23,7 @@ module Web.Slug
 where
 
 import Control.Exception (Exception (..))
-import Control.Monad ((>=>), liftM)
+import Control.Monad
 import Control.Monad.Catch (MonadThrow (..))
 import Data.Aeson.Types (ToJSON (..), FromJSON (..))
 import Data.Char (isAlphaNum)
@@ -42,7 +42,7 @@ import qualified Data.Aeson as A
 import qualified Data.Text  as T
 
 #if !MIN_VERSION_base(4,8,0)
-import Control.Applicative ((<$>))
+import Control.Applicative
 #endif
 
 -- | This exception is thrown by 'mkSlug' when its input cannot be converted
@@ -79,7 +79,7 @@ instance Semigroup Slug where
   x <> y = Slug (unSlug x <> "-" <> unSlug y)
 
 -- | Create a 'Slug' from a 'Text' value, all necessary transformations are
--- applied. Argument of this function can be title of an article or
+-- applied. The argument of this function can be title of an article or
 -- something like that.
 --
 -- Note that the result is inside 'MonadThrow', that means you can just get
@@ -108,7 +108,8 @@ unSlug (Slug x) = x
 
 getSlugWords :: Text -> [Text]
 getSlugWords = T.words . T.toLower . T.map f . T.replace "'" ""
-  where f x = if isAlphaNum x then x else ' '
+  where
+    f x = if isAlphaNum x then x else ' '
 
 -- | Convert a 'Text' into a 'Slug' only when it is already valid slug.
 --
@@ -117,10 +118,11 @@ getSlugWords = T.words . T.toLower . T.map f . T.replace "'" ""
 
 parseSlug :: MonadThrow m => Text -> m Slug
 parseSlug v = mkSlug v >>= check
-  where check s =
-          if unSlug s == v
-          then return s
-          else throwM (InvalidSlug v)
+  where
+    check s =
+      if unSlug s == v
+        then return s
+        else throwM (InvalidSlug v)
 
 -- | 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