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

removing unneccessary logs from purescript code

Browse source
This commit is contained in:
nek0 2016-12-19 03:30:25 +01:00
parent ee9c66c5cd
commit ea71fe4c1e
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Activate.purs
View file

@ -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

4
src/Login.purs
View file

@ -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