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

missing do

Browse source
This commit is contained in:
nek0 2016-12-03 19:14:34 +01:00
parent 84e3155aef
commit 9ef2d3c2e7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Login.purs
View file

@ -80,7 +80,7 @@ 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 _ -> Left _ -> do
let eitherErr = decodeJson j let eitherErr = decodeJson j
either (fail Login) (\(Err e) -> fail Login e.err) eitherErr either (fail Login) (\(Err e) -> fail Login e.err) eitherErr
Right (Challenge challenge) -> do Right (Challenge challenge) -> do