Cleanup WordPress plugin

- Explicit exports
- Fixup Haddock formatting
- Brittany & Stylish
- CHANGELOG attribution

CHANGELOG.md

@@ -1,6 +1,7 @@
 ## [*Unreleased*](https://github.com/thoughtbot/yesod-auth-oauth2/compare/v0.6.1.2...master)
 
 - Add WordPress.com provider
+  [@nbloomf](https://github.com/thoughtbot/yesod-auth-oauth2/pull/130)
 
 ## [v0.6.1.2](https://github.com/thoughtbot/yesod-auth-oauth2/compare/v0.6.1.1...v0.6.1.2)
 

src/Yesod/Auth/OAuth2/WordPressDotCom.hs

@@ -1,6 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-module Yesod.Auth.OAuth2.WordPressDotCom where
+module Yesod.Auth.OAuth2.WordPressDotCom
+    ( oauth2WordPressDotCom
+    )
+where
 
 import qualified Data.Text as T
 import Yesod.Auth.OAuth2.Prelude
@@ -11,19 +14,20 @@ pluginName = "WordPress.com"
 newtype WpUser = WpUser Int
 
 instance FromJSON WpUser where
-    parseJSON = withObject "WpUser" $ \o -> WpUser
+    parseJSON = withObject "WpUser" $ \o -> WpUser <$> o .: "ID"
-        <$> o .: "ID"
 
 oauth2WordPressDotCom
-    :: ( YesodAuth m )
+    :: (YesodAuth m)
-    => Text -- client ID
+    => Text -- ^ Client Id
-    -> Text -- client secret
+    -> Text -- ^ Client Secret
     -> AuthPlugin m
 oauth2WordPressDotCom clientId clientSecret =
     authOAuth2 pluginName oauth2 $ \manager token -> do
-        (WpUser userId, userResponse) <-
+        (WpUser userId, userResponse) <- authGetProfile
-            authGetProfile pluginName manager token
+            pluginName
-                "https://public-api.wordpress.com/rest/v1/me/"
+            manager
+            token
+            "https://public-api.wordpress.com/rest/v1/me/"
 
         pure Creds
             { credsPlugin = pluginName
@@ -37,7 +41,7 @@ oauth2WordPressDotCom clientId clientSecret =
         , oauthClientSecret = clientSecret
         , oauthOAuthorizeEndpoint =
             "https://public-api.wordpress.com/oauth2/authorize"
-                `withQuery` [ scopeParam "," [ "auth" ] ]
+                `withQuery` [scopeParam "," ["auth"]]
         , oauthAccessTokenEndpoint =
             "https://public-api.wordpress.com/oauth2/token"
         , oauthCallback = Nothing