From 9ef2d3c2e7fbd8d08828bf2df535149f982bb6b5 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 3 Dec 2016 19:14:34 +0100 Subject: [PATCH] missing do --- src/Login.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Login.purs b/src/Login.purs index 9d93163..f183c47 100644 --- 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