diff --git a/Web/Authenticate/OAuth.hs b/Web/Authenticate/OAuth.hs index 0c1d586f..1211f5bd 100644 --- a/Web/Authenticate/OAuth.hs +++ b/Web/Authenticate/OAuth.hs @@ -62,6 +62,12 @@ newOAuth :: OAuth newOAuth = OAuth { oauthSignatureMethod = HMACSHA1 , oauthCallback = Nothing , oauthRealm = Nothing + , oauthServerName = error "oauthServerName" + , oauthRequestUri = error "oauthRequestUri" + , oauthAccessTokenUri = error "oauthAccessTokenUri" + , oauthAuthorizeUri = error "oauthAuthorizeUri" + , oauthConsumerKey = error "oauthConsumerKey" + , oauthConsumerSecret = error "oauthConsumerSecret" } -- | Data type for signature method. diff --git a/Web/Authenticate/OpenId.hs b/Web/Authenticate/OpenId.hs index 7ff0635a..5f80bcb6 100644 --- a/Web/Authenticate/OpenId.hs +++ b/Web/Authenticate/OpenId.hs @@ -17,7 +17,7 @@ import Data.Text.Encoding.Error (lenientDecode) import Data.Text.Lazy (toStrict) import Network.HTTP.Conduit ( parseUrl, urlEncodedBody, responseBody, httpLbs - , HttpException, Manager + , Manager ) import Data.Conduit (ResourceT, ResourceIO) import Control.Arrow ((***), second)