There was an error while loading. Please reload this page.
1 parent bcdbf1b commit a2647e0Copy full SHA for a2647e0
Yesod/Auth/OAuth2.hs
@@ -29,9 +29,8 @@ import Yesod.Form
29
30
import qualified Data.ByteString.Lazy as BSL
31
32
-data YesodOAuth2Exception = InvalidProfileResponse
33
- Text -- ^ Provider name
34
- BSL.ByteString -- ^ Aeson parse error
+-- | Provider name and Aeson parse error
+data YesodOAuth2Exception = InvalidProfileResponse Text BSL.ByteString
35
deriving (Show, Typeable)
36
37
instance Exception YesodOAuth2Exception
0 commit comments