diff --git a/src/Activate.purs b/src/Activate.purs index 15a19a2..984466e 100644 --- a/src/Activate.purs +++ b/src/Activate.purs @@ -49,9 +49,9 @@ onActivateClick onActivateClick activate ev _ = unsafePartial $ do preventDefault ev token <- getAttr "data-token" activate - log $ "token: " <> token + -- log $ "token: " <> token salt <- getAttr "data-salt" activate - log $ "salt: " <> salt + -- log $ "salt: " <> salt fpassword1 <- getValue =<< select "#password1" fpassword2 <- getValue =<< select "#password2" let password1 = fromForeign fpassword1 @@ -61,9 +61,9 @@ onActivateClick activate ev _ = unsafePartial $ do if password1 == password2 then do progress "Salting password" - log $ fromJust password1 <> " " <> salt + -- log $ fromJust password1 <> " " <> salt let salted = runFn2 hmacSha3 (fromUtf8 $ fromJust password1) (fromHex salt) - log salted + -- log salted progress "Requesting account activation..." let dat = UE.fromArray [ Tuple "salted" (Just salted) ] _ <- runAff diff --git a/src/Login.purs b/src/Login.purs index 0391b44..10a932f 100644 --- a/src/Login.purs +++ b/src/Login.purs @@ -88,10 +88,10 @@ resp1Success pass j = do Right (Challenge challenge) -> do progress "HMAC 1" let salted = runFn2 hmacSha3 (fromUtf8 pass) (fromHex challenge.salt) - log $ "salted: " <> salted + -- log $ "salted: " <> salted progress "HMAC 2" let response = runFn2 hmacSha3 (fromUtf8 salted) (fromUtf8 challenge.token) - log $ "resp: " <> response + -- log $ "resp: " <> response progress "sending response" let data2 = UE.fromArray $ [ Tuple "token" (Just challenge.token), Tuple "response" (Just response) ] _ <- runAff