nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

error handling on wrong username

Browse source
This commit is contained in:
nek0 2016-12-03 19:06:24 +01:00
parent fc3dabe336
commit 2d9bf319d3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Login.purs
View file

@ -80,8 +80,9 @@ resp1Success pass j = do
log $ show j log $ show j
let eitherChallenge = decodeJson j let eitherChallenge = decodeJson j
case eitherChallenge of case eitherChallenge of
Left e -> Left _ ->
fail Login e let eitherErr = decodeJson j
either (fail Login) (\(Err e) -> fail Login e.err) eitherErr
Right (Challenge challenge) -> do Right (Challenge challenge) -> do
progress "HMAC 1" progress "HMAC 1"
let salted = runFn2 hmacSha3 (fromUtf8 pass) (fromHex challenge.salt) let salted = runFn2 hmacSha3 (fromUtf8 pass) (fromHex challenge.salt)