missing do

This commit is contained in:
nek0 2016-12-03 19:14:34 +01:00
parent 84e3155aef
commit 9ef2d3c2e7

View file

@ -80,7 +80,7 @@ resp1Success pass j = do
log $ show j
let eitherChallenge = decodeJson j
case eitherChallenge of
Left _ ->
Left _ -> do
let eitherErr = decodeJson j
either (fail Login) (\(Err e) -> fail Login e.err) eitherErr
Right (Challenge challenge) -> do