about summary refs log tree commit diff
path: root/website/sandbox/learnpianochords/src/server/GoogleSignIn.hs
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-08T10·18+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-08T10·18+0100
commit926d8e643e9ffb7d5f5608793d35381742675073 (patch)
treec22fe26df1f36112d1f5b31a529adde2e8b38f67 /website/sandbox/learnpianochords/src/server/GoogleSignIn.hs
parent3eaf6e5aea5fec270b75283a010a4db4e7ad7801 (diff)
Update jwtIsValid API to return IO Bool
I need IO for:
- Getting the current time to validate `exp`
- Making an HTTP request to Google's token verifier endpoint
Diffstat (limited to 'website/sandbox/learnpianochords/src/server/GoogleSignIn.hs')
-rw-r--r--website/sandbox/learnpianochords/src/server/GoogleSignIn.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/website/sandbox/learnpianochords/src/server/GoogleSignIn.hs b/website/sandbox/learnpianochords/src/server/GoogleSignIn.hs
index 43fd79fbd619..1ea252eea5ae 100644
--- a/website/sandbox/learnpianochords/src/server/GoogleSignIn.hs
+++ b/website/sandbox/learnpianochords/src/server/GoogleSignIn.hs
@@ -10,5 +10,5 @@ import Web.JWT
 -- * The value of `iss` matches is "accounts.google.com" or
 --   "https://accounts.google.com"
 -- * The `exp` time has not passed
-jwtIsValid :: JWT UnverifiedJWT -> Bool
-jwtIsValid jwt = False
+jwtIsValid :: JWT UnverifiedJWT -> IO Bool
+jwtIsValid jwt = pure False