missing do

2016-12-03 19:14:34 +01:00 · 2016-12-03 19:14:34 +01:00 · 9ef2d3c2e7
commit 9ef2d3c2e7
parent 84e3155aef
1 changed files with 1 additions and 1 deletions
--- a/src/Login.purs
+++ b/src/Login.purs
@ -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