jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed pwGenerate hanging

Browse Source
This commit is contained in:
Jonathan Lamothe 2019-01-01 04:48:36 -05:00
parent 32c9241a2e
commit 60f40262f7
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog.md
View File

@ -1,3 +1,6 @@
# Changelog for passman # Changelog for passman
## Unreleased changes ## Unreleased changes
- corrected a bug that was causing the pwGenerate function to hang occasionally.
- this may cause some passwords to be generated differently

2
src/Password.hs
View File

@ -332,7 +332,7 @@ mkPass (x:xs) p = let p' = nextPolicy x p in
mkPool :: B.ByteString -> String mkPool :: B.ByteString -> String
mkPool = toB64 . raw where mkPool = toB64 . raw where
raw x = let x' = mkHash x in raw x = let x' = mkHash x in
x' `B.append` raw x x' `B.append` raw x'
mkSeed :: String -> PWData -> B.ByteString mkSeed :: String -> PWData -> B.ByteString
mkSeed pw d = toUTF8 pw `B.append` (d^.pwSalt) mkSeed pw d = toUTF8 pw `B.append` (d^.pwSalt)