This commit is contained in:
Ruslan Talpa
2017-12-12 15:31:39 +02:00
committed by GitHub
parent 804c0b7f6b
commit e4183780a9
4 changed files with 7 additions and 2 deletions
+1
View File
@@ -151,6 +151,7 @@ readOptions = do
Nothing -> pure Nothing -- no audience in config file
Just aud -> case preview stringOrUri (aud :: String) of
Nothing -> fail "Invalid Jwt audience. Check your configuration."
(Just "") -> pure Nothing
aud' -> pure aud'
coerceInt :: (Read i, Integral i) => Value -> Maybe i