From 468fba2226c227c0c538d83e2c65aa103962f7a2 Mon Sep 17 00:00:00 2001 From: Ping Chen Date: Mon, 9 Apr 2018 14:21:48 +0900 Subject: [PATCH] generalize type signature of GoogleEmail2.getPerson --- yesod-auth/Yesod/Auth/GoogleEmail2.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-auth/Yesod/Auth/GoogleEmail2.hs b/yesod-auth/Yesod/Auth/GoogleEmail2.hs index 789006e2..11fb8789 100644 --- a/yesod-auth/Yesod/Auth/GoogleEmail2.hs +++ b/yesod-auth/Yesod/Auth/GoogleEmail2.hs @@ -270,7 +270,7 @@ makeHttpRequest req = -- Will throw 'HttpException' in case of network problems or error response code. -- -- @since 1.4.3 -getPerson :: Manager -> Token -> AuthHandler site (Maybe Person) +getPerson :: MonadHandler m => Manager -> Token -> m (Maybe Person) getPerson manager token = liftSubHandler $ parseMaybe parseJSON <$> (do req <- personValueRequest token res <- http req manager